<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span class="hs-pragma">{-# OPTIONS -fno-warn-orphans #-}</span><span>
</span><span id="line-2"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">Data.Time.Format.Format.Instances</span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-3"></span><span>
</span><span id="line-4"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Char.html#"><span class="hs-identifier">Data.Char</span></a></span><span>
</span><span id="line-5"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Fixed.html#"><span class="hs-identifier">Data.Fixed</span></a></span><span>
</span><span id="line-6"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.DiffTime.html"><span class="hs-identifier">Data.Time.Clock.Internal.DiffTime</span></a></span><span>
</span><span id="line-7"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html"><span class="hs-identifier">Data.Time.Clock.Internal.NominalDiffTime</span></a></span><span>
</span><span id="line-8"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.UniversalTime.html"><span class="hs-identifier">Data.Time.Clock.Internal.UniversalTime</span></a></span><span>
</span><span id="line-9"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.UTCTime.html"><span class="hs-identifier">Data.Time.Clock.Internal.UTCTime</span></a></span><span>
</span><span id="line-10"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Clock.POSIX.html"><span class="hs-identifier">Data.Time.Clock.POSIX</span></a></span><span>
</span><span id="line-11"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Calendar.Days.html"><span class="hs-identifier">Data.Time.Calendar.Days</span></a></span><span>
</span><span id="line-12"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Calendar.CalendarDiffDays.html"><span class="hs-identifier">Data.Time.Calendar.CalendarDiffDays</span></a></span><span>
</span><span id="line-13"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Calendar.Gregorian.html"><span class="hs-identifier">Data.Time.Calendar.Gregorian</span></a></span><span>
</span><span id="line-14"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Calendar.Week.html"><span class="hs-identifier">Data.Time.Calendar.Week</span></a></span><span>
</span><span id="line-15"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Calendar.WeekDate.html"><span class="hs-identifier">Data.Time.Calendar.WeekDate</span></a></span><span>
</span><span id="line-16"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Calendar.OrdinalDate.html"><span class="hs-identifier">Data.Time.Calendar.OrdinalDate</span></a></span><span>
</span><span id="line-17"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Calendar.Private.html"><span class="hs-identifier">Data.Time.Calendar.Private</span></a></span><span>
</span><span id="line-18"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.CalendarDiffTime.html"><span class="hs-identifier">Data.Time.LocalTime.Internal.CalendarDiffTime</span></a></span><span>
</span><span id="line-19"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeZone.html"><span class="hs-identifier">Data.Time.LocalTime.Internal.TimeZone</span></a></span><span>
</span><span id="line-20"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeOfDay.html"><span class="hs-identifier">Data.Time.LocalTime.Internal.TimeOfDay</span></a></span><span>
</span><span id="line-21"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.LocalTime.html"><span class="hs-identifier">Data.Time.LocalTime.Internal.LocalTime</span></a></span><span>
</span><span id="line-22"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.ZonedTime.html"><span class="hs-identifier">Data.Time.LocalTime.Internal.ZonedTime</span></a></span><span>
</span><span id="line-23"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Format.Locale.html"><span class="hs-identifier">Data.Time.Format.Locale</span></a></span><span>
</span><span id="line-24"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Format.Format.Class.html"><span class="hs-identifier">Data.Time.Format.Format.Class</span></a></span><span>
</span><span id="line-25"></span><span>
</span><span id="line-26"></span><span>
</span><span id="line-27"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatTime"><span class="hs-identifier hs-type">FormatTime</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.LocalTime.html#LocalTime"><span class="hs-identifier hs-type">LocalTime</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-28"></span><span>    </span><span id="local-6989586621679074523"><span class="annot"><span class="annottext">formatCharacter :: Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; LocalTime -&gt; String)
</span><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var hs-var hs-var hs-var">formatCharacter</span></a></span></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'c'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; LocalTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; LocalTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; LocalTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; LocalTime -&gt; String))
-&gt; (FormatOptions -&gt; LocalTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; LocalTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679074521"><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679074521"><span class="hs-identifier hs-var">fo</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; String -&gt; LocalTime -&gt; String
forall t. FormatTime t =&gt; TimeLocale -&gt; String -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatTime"><span class="hs-identifier hs-var">formatTime</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FormatOptions -&gt; TimeLocale
</span><a href="Data.Time.Format.Format.Class.html#foLocale"><span class="hs-identifier hs-var hs-var">foLocale</span></a></span><span> </span><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679074521"><span class="hs-identifier hs-var">fo</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(String -&gt; LocalTime -&gt; String) -&gt; String -&gt; LocalTime -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; String
</span><a href="Data.Time.Format.Locale.html#dateTimeFmt"><span class="hs-identifier hs-var hs-var">dateTimeFmt</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeLocale -&gt; String) -&gt; TimeLocale -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">FormatOptions -&gt; TimeLocale
</span><a href="Data.Time.Format.Format.Class.html#foLocale"><span class="hs-identifier hs-var hs-var">foLocale</span></a></span><span> </span><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679074521"><span class="hs-identifier hs-var">fo</span></a></span><span>
</span><span id="line-29"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span id="local-6989586621679074517"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679074517"><span class="hs-identifier hs-var">alt</span></a></span></span><span> </span><span id="local-6989586621679074516"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679074516"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall t.
FormatTime t =&gt;
Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; t -&gt; String)
</span><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679074517"><span class="hs-identifier hs-var">alt</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679074516"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-30"></span><span>        </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679074515"><span class="annot"><span class="annottext">FormatOptions -&gt; Day -&gt; String
</span><a href="#local-6989586621679074515"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; LocalTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; LocalTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; LocalTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; LocalTime -&gt; String))
-&gt; (FormatOptions -&gt; LocalTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; LocalTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679074514"><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679074514"><span class="hs-identifier hs-var">fo</span></a></span></span><span> </span><span id="local-6989586621679074513"><span class="annot"><span class="annottext">LocalTime
</span><a href="#local-6989586621679074513"><span class="hs-identifier hs-var">dt</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">FormatOptions -&gt; Day -&gt; String
</span><a href="#local-6989586621679074515"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679074514"><span class="hs-identifier hs-var">fo</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">LocalTime -&gt; Day
</span><a href="Data.Time.LocalTime.Internal.LocalTime.html#localDay"><span class="hs-identifier hs-var hs-var">localDay</span></a></span><span> </span><span class="annot"><span class="annottext">LocalTime
</span><a href="#local-6989586621679074513"><span class="hs-identifier hs-var">dt</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-31"></span><span>        </span><span class="annot"><span class="annottext">Maybe (FormatOptions -&gt; Day -&gt; String)
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall t.
FormatTime t =&gt;
Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; t -&gt; String)
</span><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679074517"><span class="hs-identifier hs-var">alt</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679074516"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-32"></span><span>            </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679074511"><span class="annot"><span class="annottext">FormatOptions -&gt; TimeOfDay -&gt; String
</span><a href="#local-6989586621679074511"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; LocalTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; LocalTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; LocalTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; LocalTime -&gt; String))
-&gt; (FormatOptions -&gt; LocalTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; LocalTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679074510"><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679074510"><span class="hs-identifier hs-var">fo</span></a></span></span><span> </span><span id="local-6989586621679074509"><span class="annot"><span class="annottext">LocalTime
</span><a href="#local-6989586621679074509"><span class="hs-identifier hs-var">dt</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">FormatOptions -&gt; TimeOfDay -&gt; String
</span><a href="#local-6989586621679074511"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679074510"><span class="hs-identifier hs-var">fo</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">LocalTime -&gt; TimeOfDay
</span><a href="Data.Time.LocalTime.Internal.LocalTime.html#localTimeOfDay"><span class="hs-identifier hs-var hs-var">localTimeOfDay</span></a></span><span> </span><span class="annot"><span class="annottext">LocalTime
</span><a href="#local-6989586621679074509"><span class="hs-identifier hs-var">dt</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-33"></span><span>            </span><span class="annot"><span class="annottext">Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Maybe (FormatOptions -&gt; LocalTime -&gt; String)
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-34"></span><span>
</span><span id="line-35"></span><span class="annot"><a href="Data.Time.Format.Format.Instances.html#todAMPM"><span class="hs-identifier hs-type">todAMPM</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.Format.Locale.html#TimeLocale"><span class="hs-identifier hs-type">TimeLocale</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-type">TimeOfDay</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-36"></span><span id="todAMPM"><span class="annot"><span class="annottext">todAMPM :: TimeLocale -&gt; TimeOfDay -&gt; String
</span><a href="Data.Time.Format.Format.Instances.html#todAMPM"><span class="hs-identifier hs-var hs-var">todAMPM</span></a></span></span><span> </span><span id="local-6989586621679074506"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074506"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span id="local-6989586621679074505"><span class="annot"><span class="annottext">TimeOfDay
</span><a href="#local-6989586621679074505"><span class="hs-identifier hs-var">day</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-37"></span><span>    </span><span class="hs-special">(</span><span id="local-6989586621679074504"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679074504"><span class="hs-identifier hs-var">am</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679074503"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679074503"><span class="hs-identifier hs-var">pm</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; (String, String)
</span><a href="Data.Time.Format.Locale.html#amPm"><span class="hs-identifier hs-var hs-var">amPm</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074506"><span class="hs-identifier hs-var">locale</span></a></span><span>
</span><span id="line-38"></span><span>    </span><span class="hs-keyword">in</span><span> </span><span class="hs-keyword">if</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeOfDay -&gt; Int
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#todHour"><span class="hs-identifier hs-var hs-var">todHour</span></a></span><span> </span><span class="annot"><span class="annottext">TimeOfDay
</span><a href="#local-6989586621679074505"><span class="hs-identifier hs-var">day</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&lt;</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">12</span></span><span> </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679074504"><span class="hs-identifier hs-var">am</span></a></span><span> </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679074503"><span class="hs-identifier hs-var">pm</span></a></span><span>
</span><span id="line-39"></span><span>
</span><span id="line-40"></span><span class="annot"><a href="Data.Time.Format.Format.Instances.html#tod12Hour"><span class="hs-identifier hs-type">tod12Hour</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-type">TimeOfDay</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span>
</span><span id="line-41"></span><span id="tod12Hour"><span class="annot"><span class="annottext">tod12Hour :: TimeOfDay -&gt; Int
</span><a href="Data.Time.Format.Format.Instances.html#tod12Hour"><span class="hs-identifier hs-var hs-var">tod12Hour</span></a></span></span><span> </span><span id="local-6989586621679074498"><span class="annot"><span class="annottext">TimeOfDay
</span><a href="#local-6989586621679074498"><span class="hs-identifier hs-var">day</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Integral a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Real.html#mod"><span class="hs-identifier hs-var">mod</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeOfDay -&gt; Int
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#todHour"><span class="hs-identifier hs-var hs-var">todHour</span></a></span><span> </span><span class="annot"><span class="annottext">TimeOfDay
</span><a href="#local-6989586621679074498"><span class="hs-identifier hs-var">day</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#-"><span class="hs-glyph hs-var">-</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">12</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2B"><span class="hs-operator hs-var">+</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span>
</span><span id="line-42"></span><span>
</span><span id="line-43"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatTime"><span class="hs-identifier hs-type">FormatTime</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-type">TimeOfDay</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-44"></span><span>    </span><span class="hs-comment">-- Aggregate</span><span>
</span><span id="line-45"></span><span>    </span><span id="local-6989586621679074476"><span class="annot"><span class="annottext">formatCharacter :: Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
</span><a href="#local-6989586621679074476"><span class="hs-identifier hs-var hs-var hs-var hs-var">formatCharacter</span></a></span></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'R'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; TimeOfDay -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String))
-&gt; (FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeLocale -&gt; TimeOfDay -&gt; String)
-&gt; FormatOptions -&gt; TimeOfDay -&gt; String
forall t.
(TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatString"><span class="hs-identifier hs-var">formatString</span></a></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; TimeOfDay -&gt; String)
 -&gt; FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; (TimeLocale -&gt; TimeOfDay -&gt; String)
-&gt; FormatOptions
-&gt; TimeOfDay
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679074474"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074474"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; String -&gt; TimeOfDay -&gt; String
forall t. FormatTime t =&gt; TimeLocale -&gt; String -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatTime"><span class="hs-identifier hs-var">formatTime</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074474"><span class="hs-identifier hs-var">locale</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;%H:%M&quot;</span></span><span>
</span><span id="line-46"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'T'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; TimeOfDay -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String))
-&gt; (FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeLocale -&gt; TimeOfDay -&gt; String)
-&gt; FormatOptions -&gt; TimeOfDay -&gt; String
forall t.
(TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatString"><span class="hs-identifier hs-var">formatString</span></a></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; TimeOfDay -&gt; String)
 -&gt; FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; (TimeLocale -&gt; TimeOfDay -&gt; String)
-&gt; FormatOptions
-&gt; TimeOfDay
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679074473"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074473"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; String -&gt; TimeOfDay -&gt; String
forall t. FormatTime t =&gt; TimeLocale -&gt; String -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatTime"><span class="hs-identifier hs-var">formatTime</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074473"><span class="hs-identifier hs-var">locale</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;%H:%M:%S&quot;</span></span><span>
</span><span id="line-47"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'X'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; TimeOfDay -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String))
-&gt; (FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeLocale -&gt; TimeOfDay -&gt; String)
-&gt; FormatOptions -&gt; TimeOfDay -&gt; String
forall t.
(TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatString"><span class="hs-identifier hs-var">formatString</span></a></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; TimeOfDay -&gt; String)
 -&gt; FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; (TimeLocale -&gt; TimeOfDay -&gt; String)
-&gt; FormatOptions
-&gt; TimeOfDay
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679074472"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074472"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; String -&gt; TimeOfDay -&gt; String
forall t. FormatTime t =&gt; TimeLocale -&gt; String -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatTime"><span class="hs-identifier hs-var">formatTime</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074472"><span class="hs-identifier hs-var">locale</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeLocale -&gt; String
</span><a href="Data.Time.Format.Locale.html#timeFmt"><span class="hs-identifier hs-var hs-var">timeFmt</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074472"><span class="hs-identifier hs-var">locale</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-48"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'r'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; TimeOfDay -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String))
-&gt; (FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeLocale -&gt; TimeOfDay -&gt; String)
-&gt; FormatOptions -&gt; TimeOfDay -&gt; String
forall t.
(TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatString"><span class="hs-identifier hs-var">formatString</span></a></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; TimeOfDay -&gt; String)
 -&gt; FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; (TimeLocale -&gt; TimeOfDay -&gt; String)
-&gt; FormatOptions
-&gt; TimeOfDay
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679074470"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074470"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; String -&gt; TimeOfDay -&gt; String
forall t. FormatTime t =&gt; TimeLocale -&gt; String -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatTime"><span class="hs-identifier hs-var">formatTime</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074470"><span class="hs-identifier hs-var">locale</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeLocale -&gt; String
</span><a href="Data.Time.Format.Locale.html#time12Fmt"><span class="hs-identifier hs-var hs-var">time12Fmt</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074470"><span class="hs-identifier hs-var">locale</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-49"></span><span>    </span><span class="hs-comment">-- AM/PM</span><span>
</span><span id="line-50"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'P'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; TimeOfDay -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String))
-&gt; (FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeLocale -&gt; TimeOfDay -&gt; String)
-&gt; FormatOptions -&gt; TimeOfDay -&gt; String
forall t.
(TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatString"><span class="hs-identifier hs-var">formatString</span></a></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; TimeOfDay -&gt; String)
 -&gt; FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; (TimeLocale -&gt; TimeOfDay -&gt; String)
-&gt; FormatOptions
-&gt; TimeOfDay
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679074468"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074468"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(Char -&gt; Char) -&gt; String -&gt; String
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char
</span><a href="../../base/src/GHC.Unicode.html#toLower"><span class="hs-identifier hs-var">toLower</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; String) -&gt; (TimeOfDay -&gt; String) -&gt; TimeOfDay -&gt; String
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; TimeOfDay -&gt; String
</span><a href="Data.Time.Format.Format.Instances.html#todAMPM"><span class="hs-identifier hs-var">todAMPM</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074468"><span class="hs-identifier hs-var">locale</span></a></span><span>
</span><span id="line-51"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'p'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; TimeOfDay -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String))
-&gt; (FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeLocale -&gt; TimeOfDay -&gt; String)
-&gt; FormatOptions -&gt; TimeOfDay -&gt; String
forall t.
(TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatString"><span class="hs-identifier hs-var">formatString</span></a></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; TimeOfDay -&gt; String)
 -&gt; FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; (TimeLocale -&gt; TimeOfDay -&gt; String)
-&gt; FormatOptions
-&gt; TimeOfDay
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679074465"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074465"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; TimeOfDay -&gt; String
</span><a href="Data.Time.Format.Format.Instances.html#todAMPM"><span class="hs-identifier hs-var">todAMPM</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074465"><span class="hs-identifier hs-var">locale</span></a></span><span>
</span><span id="line-52"></span><span>    </span><span class="hs-comment">-- Hour</span><span>
</span><span id="line-53"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'H'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; TimeOfDay -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String))
-&gt; (FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Int
-&gt; Char
-&gt; (TimeOfDay -&gt; Int)
-&gt; FormatOptions
-&gt; TimeOfDay
-&gt; String
forall i t.
ShowPadded i =&gt;
Bool -&gt; Int -&gt; Char -&gt; (t -&gt; i) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-var">formatNumber</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>  </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">TimeOfDay -&gt; Int
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#todHour"><span class="hs-identifier hs-var hs-var">todHour</span></a></span><span>
</span><span id="line-54"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'I'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; TimeOfDay -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String))
-&gt; (FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Int
-&gt; Char
-&gt; (TimeOfDay -&gt; Int)
-&gt; FormatOptions
-&gt; TimeOfDay
-&gt; String
forall i t.
ShowPadded i =&gt;
Bool -&gt; Int -&gt; Char -&gt; (t -&gt; i) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-var">formatNumber</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>  </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">TimeOfDay -&gt; Int
</span><a href="Data.Time.Format.Format.Instances.html#tod12Hour"><span class="hs-identifier hs-var">tod12Hour</span></a></span><span>
</span><span id="line-55"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'k'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; TimeOfDay -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String))
-&gt; (FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Int
-&gt; Char
-&gt; (TimeOfDay -&gt; Int)
-&gt; FormatOptions
-&gt; TimeOfDay
-&gt; String
forall i t.
ShowPadded i =&gt;
Bool -&gt; Int -&gt; Char -&gt; (t -&gt; i) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-var">formatNumber</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>  </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">' '</span></span><span> </span><span class="annot"><span class="annottext">TimeOfDay -&gt; Int
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#todHour"><span class="hs-identifier hs-var hs-var">todHour</span></a></span><span>
</span><span id="line-56"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'l'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; TimeOfDay -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String))
-&gt; (FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Int
-&gt; Char
-&gt; (TimeOfDay -&gt; Int)
-&gt; FormatOptions
-&gt; TimeOfDay
-&gt; String
forall i t.
ShowPadded i =&gt;
Bool -&gt; Int -&gt; Char -&gt; (t -&gt; i) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-var">formatNumber</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>  </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">' '</span></span><span> </span><span class="annot"><span class="annottext">TimeOfDay -&gt; Int
</span><a href="Data.Time.Format.Format.Instances.html#tod12Hour"><span class="hs-identifier hs-var">tod12Hour</span></a></span><span>
</span><span id="line-57"></span><span>    </span><span class="hs-comment">-- Minute</span><span>
</span><span id="line-58"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'M'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; TimeOfDay -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String))
-&gt; (FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Int
-&gt; Char
-&gt; (TimeOfDay -&gt; Int)
-&gt; FormatOptions
-&gt; TimeOfDay
-&gt; String
forall i t.
ShowPadded i =&gt;
Bool -&gt; Int -&gt; Char -&gt; (t -&gt; i) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-var">formatNumber</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>  </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">TimeOfDay -&gt; Int
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#todMin"><span class="hs-identifier hs-var hs-var">todMin</span></a></span><span>
</span><span id="line-59"></span><span>    </span><span class="hs-comment">-- Second</span><span>
</span><span id="line-60"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'S'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; TimeOfDay -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String))
-&gt; (FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Int
-&gt; Char
-&gt; (TimeOfDay -&gt; Int)
-&gt; FormatOptions
-&gt; TimeOfDay
-&gt; String
forall i t.
ShowPadded i =&gt;
Bool -&gt; Int -&gt; Char -&gt; (t -&gt; i) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-var">formatNumber</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>  </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">((TimeOfDay -&gt; Int) -&gt; FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; (TimeOfDay -&gt; Int) -&gt; FormatOptions -&gt; TimeOfDay -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Pico -&gt; Int
forall a b. (RealFrac a, Integral b) =&gt; a -&gt; b
</span><a href="../../base/src/GHC.Real.html#floor"><span class="hs-identifier hs-var">floor</span></a></span><span> </span><span class="annot"><span class="annottext">(Pico -&gt; Int) -&gt; (TimeOfDay -&gt; Pico) -&gt; TimeOfDay -&gt; Int
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">TimeOfDay -&gt; Pico
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#todSec"><span class="hs-identifier hs-var hs-var">todSec</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-type">TimeOfDay</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span class="hs-special">)</span><span>
</span><span id="line-61"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'q'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; TimeOfDay -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String))
-&gt; (FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Bool
-&gt; Int
-&gt; Char
-&gt; (TimeLocale -&gt; PadOption -&gt; TimeOfDay -&gt; String)
-&gt; FormatOptions
-&gt; TimeOfDay
-&gt; String
forall t.
Bool
-&gt; Bool
-&gt; Int
-&gt; Char
-&gt; (TimeLocale -&gt; PadOption -&gt; t -&gt; String)
-&gt; FormatOptions
-&gt; t
-&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatGeneral"><span class="hs-identifier hs-var">formatGeneral</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">12</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; PadOption -&gt; TimeOfDay -&gt; String)
 -&gt; FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; (TimeLocale -&gt; PadOption -&gt; TimeOfDay -&gt; String)
-&gt; FormatOptions
-&gt; TimeOfDay
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span class="annot"><span class="annottext">TimeLocale
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679074459"><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679074459"><span class="hs-identifier hs-var">pado</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">PadOption -&gt; Pico -&gt; String
forall a. HasResolution a =&gt; PadOption -&gt; Fixed a -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#showPaddedFixedFraction"><span class="hs-identifier hs-var">showPaddedFixedFraction</span></a></span><span> </span><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679074459"><span class="hs-identifier hs-var">pado</span></a></span><span> </span><span class="annot"><span class="annottext">(Pico -&gt; String) -&gt; (TimeOfDay -&gt; Pico) -&gt; TimeOfDay -&gt; String
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">TimeOfDay -&gt; Pico
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#todSec"><span class="hs-identifier hs-var hs-var">todSec</span></a></span><span>
</span><span id="line-62"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'Q'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; TimeOfDay -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String))
-&gt; (FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Bool
-&gt; Int
-&gt; Char
-&gt; (TimeLocale -&gt; PadOption -&gt; TimeOfDay -&gt; String)
-&gt; FormatOptions
-&gt; TimeOfDay
-&gt; String
forall t.
Bool
-&gt; Bool
-&gt; Int
-&gt; Char
-&gt; (TimeLocale -&gt; PadOption -&gt; t -&gt; String)
-&gt; FormatOptions
-&gt; t
-&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatGeneral"><span class="hs-identifier hs-var">formatGeneral</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">12</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; PadOption -&gt; TimeOfDay -&gt; String)
 -&gt; FormatOptions -&gt; TimeOfDay -&gt; String)
-&gt; (TimeLocale -&gt; PadOption -&gt; TimeOfDay -&gt; String)
-&gt; FormatOptions
-&gt; TimeOfDay
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span class="annot"><span class="annottext">TimeLocale
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679074457"><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679074457"><span class="hs-identifier hs-var">pado</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String -&gt; String
</span><a href="#local-6989586621679074456"><span class="hs-identifier hs-var">dotNonEmpty</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; String) -&gt; (TimeOfDay -&gt; String) -&gt; TimeOfDay -&gt; String
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">PadOption -&gt; Pico -&gt; String
forall a. HasResolution a =&gt; PadOption -&gt; Fixed a -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#showPaddedFixedFraction"><span class="hs-identifier hs-var">showPaddedFixedFraction</span></a></span><span> </span><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679074457"><span class="hs-identifier hs-var">pado</span></a></span><span> </span><span class="annot"><span class="annottext">(Pico -&gt; String) -&gt; (TimeOfDay -&gt; Pico) -&gt; TimeOfDay -&gt; String
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">TimeOfDay -&gt; Pico
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#todSec"><span class="hs-identifier hs-var hs-var">todSec</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-63"></span><span>        </span><span id="local-6989586621679074456"><span class="annot"><span class="annottext">dotNonEmpty :: String -&gt; String
</span><a href="#local-6989586621679074456"><span class="hs-identifier hs-var hs-var">dotNonEmpty</span></a></span></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;&quot;</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;&quot;</span></span><span>
</span><span id="line-64"></span><span>        </span><span class="annot"><a href="#local-6989586621679074456"><span class="hs-identifier hs-var">dotNonEmpty</span></a></span><span> </span><span id="local-6989586621679074455"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679074455"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'.'</span></span><span class="annot"><span class="annottext">Char -&gt; String -&gt; String
forall a. a -&gt; [a] -&gt; [a]
</span><span class="hs-glyph hs-var">:</span></span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679074455"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-65"></span><span>
</span><span id="line-66"></span><span>    </span><span class="hs-comment">-- Default</span><span>
</span><span id="line-67"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe (FormatOptions -&gt; TimeOfDay -&gt; String)
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-68"></span><span>
</span><span id="line-69"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatTime"><span class="hs-identifier hs-type">FormatTime</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.ZonedTime.html#ZonedTime"><span class="hs-identifier hs-type">ZonedTime</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-70"></span><span>    </span><span id="local-6989586621679074442"><span class="annot"><span class="annottext">formatCharacter :: Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; ZonedTime -&gt; String)
</span><a href="#local-6989586621679074442"><span class="hs-identifier hs-var hs-var hs-var hs-var">formatCharacter</span></a></span></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'c'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; ZonedTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; ZonedTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; ZonedTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; ZonedTime -&gt; String))
-&gt; (FormatOptions -&gt; ZonedTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; ZonedTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeLocale -&gt; ZonedTime -&gt; String)
-&gt; FormatOptions -&gt; ZonedTime -&gt; String
forall t.
(TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatString"><span class="hs-identifier hs-var">formatString</span></a></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; ZonedTime -&gt; String)
 -&gt; FormatOptions -&gt; ZonedTime -&gt; String)
-&gt; (TimeLocale -&gt; ZonedTime -&gt; String)
-&gt; FormatOptions
-&gt; ZonedTime
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679074441"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074441"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; String -&gt; ZonedTime -&gt; String
forall t. FormatTime t =&gt; TimeLocale -&gt; String -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatTime"><span class="hs-identifier hs-var">formatTime</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074441"><span class="hs-identifier hs-var">locale</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeLocale -&gt; String
</span><a href="Data.Time.Format.Locale.html#dateTimeFmt"><span class="hs-identifier hs-var hs-var">dateTimeFmt</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074441"><span class="hs-identifier hs-var">locale</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-71"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'s'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; ZonedTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; ZonedTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; ZonedTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; ZonedTime -&gt; String))
-&gt; (FormatOptions -&gt; ZonedTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; ZonedTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Int
-&gt; Char
-&gt; (ZonedTime -&gt; Integer)
-&gt; FormatOptions
-&gt; ZonedTime
-&gt; String
forall i t.
ShowPadded i =&gt;
Bool -&gt; Int -&gt; Char -&gt; (t -&gt; i) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-var">formatNumber</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>  </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">((ZonedTime -&gt; Integer) -&gt; FormatOptions -&gt; ZonedTime -&gt; String)
-&gt; (ZonedTime -&gt; Integer) -&gt; FormatOptions -&gt; ZonedTime -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">POSIXTime -&gt; Integer
forall a b. (RealFrac a, Integral b) =&gt; a -&gt; b
</span><a href="../../base/src/GHC.Real.html#floor"><span class="hs-identifier hs-var">floor</span></a></span><span> </span><span class="annot"><span class="annottext">(POSIXTime -&gt; Integer)
-&gt; (ZonedTime -&gt; POSIXTime) -&gt; ZonedTime -&gt; Integer
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">UTCTime -&gt; POSIXTime
</span><a href="Data.Time.Clock.POSIX.html#utcTimeToPOSIXSeconds"><span class="hs-identifier hs-var">utcTimeToPOSIXSeconds</span></a></span><span> </span><span class="annot"><span class="annottext">(UTCTime -&gt; POSIXTime)
-&gt; (ZonedTime -&gt; UTCTime) -&gt; ZonedTime -&gt; POSIXTime
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">ZonedTime -&gt; UTCTime
</span><a href="Data.Time.LocalTime.Internal.ZonedTime.html#zonedTimeToUTC"><span class="hs-identifier hs-var">zonedTimeToUTC</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.ZonedTime.html#ZonedTime"><span class="hs-identifier hs-type">ZonedTime</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span class="hs-special">)</span><span>
</span><span id="line-72"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span id="local-6989586621679074438"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679074438"><span class="hs-identifier hs-var">alt</span></a></span></span><span> </span><span id="local-6989586621679074437"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679074437"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; LocalTime -&gt; String)
forall t.
FormatTime t =&gt;
Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; t -&gt; String)
</span><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679074438"><span class="hs-identifier hs-var">alt</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679074437"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-73"></span><span>        </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679074436"><span class="annot"><span class="annottext">FormatOptions -&gt; LocalTime -&gt; String
</span><a href="#local-6989586621679074436"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; ZonedTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; ZonedTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; ZonedTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; ZonedTime -&gt; String))
-&gt; (FormatOptions -&gt; ZonedTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; ZonedTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679074435"><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679074435"><span class="hs-identifier hs-var">fo</span></a></span></span><span> </span><span id="local-6989586621679074434"><span class="annot"><span class="annottext">ZonedTime
</span><a href="#local-6989586621679074434"><span class="hs-identifier hs-var">dt</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">FormatOptions -&gt; LocalTime -&gt; String
</span><a href="#local-6989586621679074436"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679074435"><span class="hs-identifier hs-var">fo</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ZonedTime -&gt; LocalTime
</span><a href="Data.Time.LocalTime.Internal.ZonedTime.html#zonedTimeToLocalTime"><span class="hs-identifier hs-var hs-var">zonedTimeToLocalTime</span></a></span><span> </span><span class="annot"><span class="annottext">ZonedTime
</span><a href="#local-6989586621679074434"><span class="hs-identifier hs-var">dt</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-74"></span><span>        </span><span class="annot"><span class="annottext">Maybe (FormatOptions -&gt; LocalTime -&gt; String)
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; TimeZone -&gt; String)
forall t.
FormatTime t =&gt;
Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; t -&gt; String)
</span><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679074438"><span class="hs-identifier hs-var">alt</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679074437"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-75"></span><span>            </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679074432"><span class="annot"><span class="annottext">FormatOptions -&gt; TimeZone -&gt; String
</span><a href="#local-6989586621679074432"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; ZonedTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; ZonedTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; ZonedTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; ZonedTime -&gt; String))
-&gt; (FormatOptions -&gt; ZonedTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; ZonedTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679074431"><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679074431"><span class="hs-identifier hs-var">fo</span></a></span></span><span> </span><span id="local-6989586621679074430"><span class="annot"><span class="annottext">ZonedTime
</span><a href="#local-6989586621679074430"><span class="hs-identifier hs-var">dt</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">FormatOptions -&gt; TimeZone -&gt; String
</span><a href="#local-6989586621679074432"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679074431"><span class="hs-identifier hs-var">fo</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ZonedTime -&gt; TimeZone
</span><a href="Data.Time.LocalTime.Internal.ZonedTime.html#zonedTimeZone"><span class="hs-identifier hs-var hs-var">zonedTimeZone</span></a></span><span> </span><span class="annot"><span class="annottext">ZonedTime
</span><a href="#local-6989586621679074430"><span class="hs-identifier hs-var">dt</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-76"></span><span>            </span><span class="annot"><span class="annottext">Maybe (FormatOptions -&gt; TimeZone -&gt; String)
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Maybe (FormatOptions -&gt; ZonedTime -&gt; String)
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-77"></span><span>
</span><span id="line-78"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatTime"><span class="hs-identifier hs-type">FormatTime</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeZone.html#TimeZone"><span class="hs-identifier hs-type">TimeZone</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-79"></span><span>    </span><span id="local-6989586621679074425"><span class="annot"><span class="annottext">formatCharacter :: Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; TimeZone -&gt; String)
</span><a href="#local-6989586621679074425"><span class="hs-identifier hs-var hs-var hs-var hs-var">formatCharacter</span></a></span></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'z'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; TimeZone -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeZone -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; TimeZone -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; TimeZone -&gt; String))
-&gt; (FormatOptions -&gt; TimeZone -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeZone -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Bool
-&gt; Int
-&gt; Char
-&gt; (TimeLocale -&gt; PadOption -&gt; TimeZone -&gt; String)
-&gt; FormatOptions
-&gt; TimeZone
-&gt; String
forall t.
Bool
-&gt; Bool
-&gt; Int
-&gt; Char
-&gt; (TimeLocale -&gt; PadOption -&gt; t -&gt; String)
-&gt; FormatOptions
-&gt; t
-&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatGeneral"><span class="hs-identifier hs-var">formatGeneral</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">4</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; PadOption -&gt; TimeZone -&gt; String)
 -&gt; FormatOptions -&gt; TimeZone -&gt; String)
-&gt; (TimeLocale -&gt; PadOption -&gt; TimeZone -&gt; String)
-&gt; FormatOptions
-&gt; TimeZone
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span class="annot"><span class="annottext">TimeLocale
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; PadOption -&gt; TimeZone -&gt; String
</span><a href="Data.Time.LocalTime.Internal.TimeZone.html#timeZoneOffsetString%27%27"><span class="hs-identifier hs-var">timeZoneOffsetString''</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span>
</span><span id="line-80"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'z'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; TimeZone -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeZone -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; TimeZone -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; TimeZone -&gt; String))
-&gt; (FormatOptions -&gt; TimeZone -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeZone -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Bool
-&gt; Int
-&gt; Char
-&gt; (TimeLocale -&gt; PadOption -&gt; TimeZone -&gt; String)
-&gt; FormatOptions
-&gt; TimeZone
-&gt; String
forall t.
Bool
-&gt; Bool
-&gt; Int
-&gt; Char
-&gt; (TimeLocale -&gt; PadOption -&gt; t -&gt; String)
-&gt; FormatOptions
-&gt; t
-&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatGeneral"><span class="hs-identifier hs-var">formatGeneral</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">5</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; PadOption -&gt; TimeZone -&gt; String)
 -&gt; FormatOptions -&gt; TimeZone -&gt; String)
-&gt; (TimeLocale -&gt; PadOption -&gt; TimeZone -&gt; String)
-&gt; FormatOptions
-&gt; TimeZone
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span class="annot"><span class="annottext">TimeLocale
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; PadOption -&gt; TimeZone -&gt; String
</span><a href="Data.Time.LocalTime.Internal.TimeZone.html#timeZoneOffsetString%27%27"><span class="hs-identifier hs-var">timeZoneOffsetString''</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>
</span><span id="line-81"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span id="local-6989586621679074423"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679074423"><span class="hs-identifier hs-var">alt</span></a></span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'Z'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; TimeZone -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeZone -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; TimeZone -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; TimeZone -&gt; String))
-&gt; (FormatOptions -&gt; TimeZone -&gt; String)
-&gt; Maybe (FormatOptions -&gt; TimeZone -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679074422"><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679074422"><span class="hs-identifier hs-var">fo</span></a></span></span><span> </span><span id="local-6989586621679074421"><span class="annot"><span class="annottext">TimeZone
</span><a href="#local-6989586621679074421"><span class="hs-identifier hs-var">z</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-82"></span><span>        </span><span id="local-6989586621679074420"><span class="annot"><span class="annottext">n :: String
</span><a href="#local-6989586621679074420"><span class="hs-identifier hs-var hs-var">n</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeZone -&gt; String
</span><a href="Data.Time.LocalTime.Internal.TimeZone.html#timeZoneName"><span class="hs-identifier hs-var hs-var">timeZoneName</span></a></span><span> </span><span class="annot"><span class="annottext">TimeZone
</span><a href="#local-6989586621679074421"><span class="hs-identifier hs-var">z</span></a></span><span>
</span><span id="line-83"></span><span>        </span><span id="local-6989586621679074416"><span class="annot"><span class="annottext">idef :: Int
</span><a href="#local-6989586621679074416"><span class="hs-identifier hs-var hs-var">idef</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679074423"><span class="hs-identifier hs-var">alt</span></a></span><span> </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">5</span></span><span> </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">4</span></span><span>
</span><span id="line-84"></span><span>        </span><span class="hs-keyword">in</span><span> </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">String -&gt; Bool
forall (t :: * -&gt; *) a. Foldable t =&gt; t a -&gt; Bool
</span><a href="../../base/src/Data.Foldable.html#null"><span class="hs-identifier hs-var">null</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679074420"><span class="hs-identifier hs-var">n</span></a></span><span> </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Bool
-&gt; Int
-&gt; Char
-&gt; (TimeLocale -&gt; PadOption -&gt; TimeZone -&gt; String)
-&gt; FormatOptions
-&gt; TimeZone
-&gt; String
forall t.
Bool
-&gt; Bool
-&gt; Int
-&gt; Char
-&gt; (TimeLocale -&gt; PadOption -&gt; t -&gt; String)
-&gt; FormatOptions
-&gt; t
-&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatGeneral"><span class="hs-identifier hs-var">formatGeneral</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074416"><span class="hs-identifier hs-var">idef</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="annot"><span class="annottext">TimeLocale
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; PadOption -&gt; TimeZone -&gt; String
</span><a href="Data.Time.LocalTime.Internal.TimeZone.html#timeZoneOffsetString%27%27"><span class="hs-identifier hs-var">timeZoneOffsetString''</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679074423"><span class="hs-identifier hs-var">alt</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679074422"><span class="hs-identifier hs-var">fo</span></a></span><span> </span><span class="annot"><span class="annottext">TimeZone
</span><a href="#local-6989586621679074421"><span class="hs-identifier hs-var">z</span></a></span><span> </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">(TimeLocale -&gt; TimeZone -&gt; String)
-&gt; FormatOptions -&gt; TimeZone -&gt; String
forall t.
(TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatString"><span class="hs-identifier hs-var">formatString</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="annot"><span class="annottext">TimeLocale
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">TimeZone -&gt; String
</span><a href="Data.Time.LocalTime.Internal.TimeZone.html#timeZoneName"><span class="hs-identifier hs-var hs-var">timeZoneName</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679074422"><span class="hs-identifier hs-var">fo</span></a></span><span> </span><span class="annot"><span class="annottext">TimeZone
</span><a href="#local-6989586621679074421"><span class="hs-identifier hs-var">z</span></a></span><span>
</span><span id="line-85"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe (FormatOptions -&gt; TimeZone -&gt; String)
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-86"></span><span>
</span><span id="line-87"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatTime"><span class="hs-identifier hs-type">FormatTime</span></a></span><span> </span><span class="annot"><a href="Data.Time.Calendar.Week.html#DayOfWeek"><span class="hs-identifier hs-type">DayOfWeek</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-88"></span><span>    </span><span id="local-6989586621679074399"><span class="annot"><span class="annottext">formatCharacter :: Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; DayOfWeek -&gt; String)
</span><a href="#local-6989586621679074399"><span class="hs-identifier hs-var hs-var hs-var hs-var">formatCharacter</span></a></span></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'u'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; DayOfWeek -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DayOfWeek -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; DayOfWeek -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; DayOfWeek -&gt; String))
-&gt; (FormatOptions -&gt; DayOfWeek -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DayOfWeek -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Int
-&gt; Char
-&gt; (DayOfWeek -&gt; Int)
-&gt; FormatOptions
-&gt; DayOfWeek
-&gt; String
forall i t.
ShowPadded i =&gt;
Bool -&gt; Int -&gt; Char -&gt; (t -&gt; i) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-var">formatNumber</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>  </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">((DayOfWeek -&gt; Int) -&gt; FormatOptions -&gt; DayOfWeek -&gt; String)
-&gt; (DayOfWeek -&gt; Int) -&gt; FormatOptions -&gt; DayOfWeek -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">DayOfWeek -&gt; Int
forall a. Enum a =&gt; a -&gt; Int
</span><a href="../../base/src/GHC.Enum.html#fromEnum"><span class="hs-identifier hs-var">fromEnum</span></a></span><span>
</span><span id="line-89"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'w'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; DayOfWeek -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DayOfWeek -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; DayOfWeek -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; DayOfWeek -&gt; String))
-&gt; (FormatOptions -&gt; DayOfWeek -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DayOfWeek -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Int
-&gt; Char
-&gt; (DayOfWeek -&gt; Int)
-&gt; FormatOptions
-&gt; DayOfWeek
-&gt; String
forall i t.
ShowPadded i =&gt;
Bool -&gt; Int -&gt; Char -&gt; (t -&gt; i) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-var">formatNumber</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>  </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">((DayOfWeek -&gt; Int) -&gt; FormatOptions -&gt; DayOfWeek -&gt; String)
-&gt; (DayOfWeek -&gt; Int) -&gt; FormatOptions -&gt; DayOfWeek -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679074397"><span class="annot"><span class="annottext">DayOfWeek
</span><a href="#local-6989586621679074397"><span class="hs-identifier hs-var">wd</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Integral a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Real.html#mod"><span class="hs-identifier hs-var">mod</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">DayOfWeek -&gt; Int
forall a. Enum a =&gt; a -&gt; Int
</span><a href="../../base/src/GHC.Enum.html#fromEnum"><span class="hs-identifier hs-var">fromEnum</span></a></span><span> </span><span class="annot"><span class="annottext">DayOfWeek
</span><a href="#local-6989586621679074397"><span class="hs-identifier hs-var">wd</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">7</span></span><span class="hs-special">)</span><span>
</span><span id="line-90"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'a'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; DayOfWeek -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DayOfWeek -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; DayOfWeek -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; DayOfWeek -&gt; String))
-&gt; (FormatOptions -&gt; DayOfWeek -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DayOfWeek -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeLocale -&gt; DayOfWeek -&gt; String)
-&gt; FormatOptions -&gt; DayOfWeek -&gt; String
forall t.
(TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatString"><span class="hs-identifier hs-var">formatString</span></a></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; DayOfWeek -&gt; String)
 -&gt; FormatOptions -&gt; DayOfWeek -&gt; String)
-&gt; (TimeLocale -&gt; DayOfWeek -&gt; String)
-&gt; FormatOptions
-&gt; DayOfWeek
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679074396"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074396"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span id="local-6989586621679074395"><span class="annot"><span class="annottext">DayOfWeek
</span><a href="#local-6989586621679074395"><span class="hs-identifier hs-var">wd</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(String, String) -&gt; String
forall a b. (a, b) -&gt; b
</span><a href="../../base/src/Data.Tuple.html#snd"><span class="hs-identifier hs-var">snd</span></a></span><span> </span><span class="annot"><span class="annottext">((String, String) -&gt; String) -&gt; (String, String) -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeLocale -&gt; [(String, String)]
</span><a href="Data.Time.Format.Locale.html#wDays"><span class="hs-identifier hs-var hs-var">wDays</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074396"><span class="hs-identifier hs-var">locale</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[(String, String)] -&gt; Int -&gt; (String, String)
forall a. [a] -&gt; Int -&gt; a
</span><a href="../../base/src/GHC.List.html#%21%21"><span class="hs-operator hs-var">!!</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Integral a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Real.html#mod"><span class="hs-identifier hs-var">mod</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">DayOfWeek -&gt; Int
forall a. Enum a =&gt; a -&gt; Int
</span><a href="../../base/src/GHC.Enum.html#fromEnum"><span class="hs-identifier hs-var">fromEnum</span></a></span><span> </span><span class="annot"><span class="annottext">DayOfWeek
</span><a href="#local-6989586621679074395"><span class="hs-identifier hs-var">wd</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">7</span></span><span class="hs-special">)</span><span>
</span><span id="line-91"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'A'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; DayOfWeek -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DayOfWeek -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; DayOfWeek -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; DayOfWeek -&gt; String))
-&gt; (FormatOptions -&gt; DayOfWeek -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DayOfWeek -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeLocale -&gt; DayOfWeek -&gt; String)
-&gt; FormatOptions -&gt; DayOfWeek -&gt; String
forall t.
(TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatString"><span class="hs-identifier hs-var">formatString</span></a></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; DayOfWeek -&gt; String)
 -&gt; FormatOptions -&gt; DayOfWeek -&gt; String)
-&gt; (TimeLocale -&gt; DayOfWeek -&gt; String)
-&gt; FormatOptions
-&gt; DayOfWeek
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679074392"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074392"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span id="local-6989586621679074391"><span class="annot"><span class="annottext">DayOfWeek
</span><a href="#local-6989586621679074391"><span class="hs-identifier hs-var">wd</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(String, String) -&gt; String
forall a b. (a, b) -&gt; a
</span><a href="../../base/src/Data.Tuple.html#fst"><span class="hs-identifier hs-var">fst</span></a></span><span> </span><span class="annot"><span class="annottext">((String, String) -&gt; String) -&gt; (String, String) -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeLocale -&gt; [(String, String)]
</span><a href="Data.Time.Format.Locale.html#wDays"><span class="hs-identifier hs-var hs-var">wDays</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074392"><span class="hs-identifier hs-var">locale</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[(String, String)] -&gt; Int -&gt; (String, String)
forall a. [a] -&gt; Int -&gt; a
</span><a href="../../base/src/GHC.List.html#%21%21"><span class="hs-operator hs-var">!!</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Integral a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Real.html#mod"><span class="hs-identifier hs-var">mod</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">DayOfWeek -&gt; Int
forall a. Enum a =&gt; a -&gt; Int
</span><a href="../../base/src/GHC.Enum.html#fromEnum"><span class="hs-identifier hs-var">fromEnum</span></a></span><span> </span><span class="annot"><span class="annottext">DayOfWeek
</span><a href="#local-6989586621679074391"><span class="hs-identifier hs-var">wd</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">7</span></span><span class="hs-special">)</span><span>
</span><span id="line-92"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe (FormatOptions -&gt; DayOfWeek -&gt; String)
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-93"></span><span>
</span><span id="line-94"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatTime"><span class="hs-identifier hs-type">FormatTime</span></a></span><span> </span><span class="annot"><a href="Data.Time.Calendar.Days.html#Day"><span class="hs-identifier hs-type">Day</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-95"></span><span>    </span><span class="hs-comment">-- Aggregate</span><span>
</span><span id="line-96"></span><span>    </span><span id="local-6989586621679074361"><span class="annot"><span class="annottext">formatCharacter :: Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
</span><a href="#local-6989586621679074361"><span class="hs-identifier hs-var hs-var hs-var hs-var">formatCharacter</span></a></span></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'D'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; Day -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; Day -&gt; String))
-&gt; (FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeLocale -&gt; Day -&gt; String) -&gt; FormatOptions -&gt; Day -&gt; String
forall t.
(TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatString"><span class="hs-identifier hs-var">formatString</span></a></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; Day -&gt; String) -&gt; FormatOptions -&gt; Day -&gt; String)
-&gt; (TimeLocale -&gt; Day -&gt; String) -&gt; FormatOptions -&gt; Day -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679074360"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074360"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; String -&gt; Day -&gt; String
forall t. FormatTime t =&gt; TimeLocale -&gt; String -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatTime"><span class="hs-identifier hs-var">formatTime</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074360"><span class="hs-identifier hs-var">locale</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;%m/%d/%y&quot;</span></span><span>
</span><span id="line-97"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'F'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; Day -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; Day -&gt; String))
-&gt; (FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeLocale -&gt; Day -&gt; String) -&gt; FormatOptions -&gt; Day -&gt; String
forall t.
(TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatString"><span class="hs-identifier hs-var">formatString</span></a></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; Day -&gt; String) -&gt; FormatOptions -&gt; Day -&gt; String)
-&gt; (TimeLocale -&gt; Day -&gt; String) -&gt; FormatOptions -&gt; Day -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679074359"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074359"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; String -&gt; Day -&gt; String
forall t. FormatTime t =&gt; TimeLocale -&gt; String -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatTime"><span class="hs-identifier hs-var">formatTime</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074359"><span class="hs-identifier hs-var">locale</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;%Y-%m-%d&quot;</span></span><span>
</span><span id="line-98"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'x'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; Day -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; Day -&gt; String))
-&gt; (FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeLocale -&gt; Day -&gt; String) -&gt; FormatOptions -&gt; Day -&gt; String
forall t.
(TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatString"><span class="hs-identifier hs-var">formatString</span></a></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; Day -&gt; String) -&gt; FormatOptions -&gt; Day -&gt; String)
-&gt; (TimeLocale -&gt; Day -&gt; String) -&gt; FormatOptions -&gt; Day -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679074358"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074358"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; String -&gt; Day -&gt; String
forall t. FormatTime t =&gt; TimeLocale -&gt; String -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatTime"><span class="hs-identifier hs-var">formatTime</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074358"><span class="hs-identifier hs-var">locale</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeLocale -&gt; String
</span><a href="Data.Time.Format.Locale.html#dateFmt"><span class="hs-identifier hs-var hs-var">dateFmt</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074358"><span class="hs-identifier hs-var">locale</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-99"></span><span>
</span><span id="line-100"></span><span>    </span><span class="hs-comment">-- Year Count</span><span>
</span><span id="line-101"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'Y'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; Day -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; Day -&gt; String))
-&gt; (FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Int
-&gt; Char
-&gt; (Day -&gt; Integer)
-&gt; FormatOptions
-&gt; Day
-&gt; String
forall i t.
ShowPadded i =&gt;
Bool -&gt; Int -&gt; Char -&gt; (t -&gt; i) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-var">formatNumber</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">4</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">((Day -&gt; Integer) -&gt; FormatOptions -&gt; Day -&gt; String)
-&gt; (Day -&gt; Integer) -&gt; FormatOptions -&gt; Day -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>          </span><span class="annot"><span class="annottext">(Integer, Int) -&gt; Integer
forall a b. (a, b) -&gt; a
</span><a href="../../base/src/Data.Tuple.html#fst"><span class="hs-identifier hs-var">fst</span></a></span><span> </span><span class="annot"><span class="annottext">((Integer, Int) -&gt; Integer)
-&gt; (Day -&gt; (Integer, Int)) -&gt; Day -&gt; Integer
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Day -&gt; (Integer, Int)
</span><a href="Data.Time.Calendar.OrdinalDate.html#toOrdinalDate"><span class="hs-identifier hs-var">toOrdinalDate</span></a></span><span>
</span><span id="line-102"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'y'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; Day -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; Day -&gt; String))
-&gt; (FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Int
-&gt; Char
-&gt; (Day -&gt; Integer)
-&gt; FormatOptions
-&gt; Day
-&gt; String
forall i t.
ShowPadded i =&gt;
Bool -&gt; Int -&gt; Char -&gt; (t -&gt; i) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-var">formatNumber</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>  </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">((Day -&gt; Integer) -&gt; FormatOptions -&gt; Day -&gt; String)
-&gt; (Day -&gt; Integer) -&gt; FormatOptions -&gt; Day -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer
forall i. Integral i =&gt; i -&gt; i
</span><a href="Data.Time.Calendar.Private.html#mod100"><span class="hs-identifier hs-var">mod100</span></a></span><span> </span><span class="annot"><span class="annottext">(Integer -&gt; Integer) -&gt; (Day -&gt; Integer) -&gt; Day -&gt; Integer
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">(Integer, Int) -&gt; Integer
forall a b. (a, b) -&gt; a
</span><a href="../../base/src/Data.Tuple.html#fst"><span class="hs-identifier hs-var">fst</span></a></span><span> </span><span class="annot"><span class="annottext">((Integer, Int) -&gt; Integer)
-&gt; (Day -&gt; (Integer, Int)) -&gt; Day -&gt; Integer
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Day -&gt; (Integer, Int)
</span><a href="Data.Time.Calendar.OrdinalDate.html#toOrdinalDate"><span class="hs-identifier hs-var">toOrdinalDate</span></a></span><span>
</span><span id="line-103"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'C'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; Day -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; Day -&gt; String))
-&gt; (FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Int
-&gt; Char
-&gt; (Day -&gt; Integer)
-&gt; FormatOptions
-&gt; Day
-&gt; String
forall i t.
ShowPadded i =&gt;
Bool -&gt; Int -&gt; Char -&gt; (t -&gt; i) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-var">formatNumber</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">((Day -&gt; Integer) -&gt; FormatOptions -&gt; Day -&gt; String)
-&gt; (Day -&gt; Integer) -&gt; FormatOptions -&gt; Day -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer
forall i. Integral i =&gt; i -&gt; i
</span><a href="Data.Time.Calendar.Private.html#div100"><span class="hs-identifier hs-var">div100</span></a></span><span> </span><span class="annot"><span class="annottext">(Integer -&gt; Integer) -&gt; (Day -&gt; Integer) -&gt; Day -&gt; Integer
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">(Integer, Int) -&gt; Integer
forall a b. (a, b) -&gt; a
</span><a href="../../base/src/Data.Tuple.html#fst"><span class="hs-identifier hs-var">fst</span></a></span><span> </span><span class="annot"><span class="annottext">((Integer, Int) -&gt; Integer)
-&gt; (Day -&gt; (Integer, Int)) -&gt; Day -&gt; Integer
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Day -&gt; (Integer, Int)
</span><a href="Data.Time.Calendar.OrdinalDate.html#toOrdinalDate"><span class="hs-identifier hs-var">toOrdinalDate</span></a></span><span>
</span><span id="line-104"></span><span>    </span><span class="hs-comment">-- Month of Year</span><span>
</span><span id="line-105"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'B'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; Day -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; Day -&gt; String))
-&gt; (FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeLocale -&gt; Day -&gt; String) -&gt; FormatOptions -&gt; Day -&gt; String
forall t.
(TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatString"><span class="hs-identifier hs-var">formatString</span></a></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; Day -&gt; String) -&gt; FormatOptions -&gt; Day -&gt; String)
-&gt; (TimeLocale -&gt; Day -&gt; String) -&gt; FormatOptions -&gt; Day -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679074353"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074353"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(String, String) -&gt; String
forall a b. (a, b) -&gt; a
</span><a href="../../base/src/Data.Tuple.html#fst"><span class="hs-identifier hs-var">fst</span></a></span><span> </span><span class="annot"><span class="annottext">((String, String) -&gt; String)
-&gt; (Day -&gt; (String, String)) -&gt; Day -&gt; String
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer
</span><span class="hs-identifier">_</span></span><span class="hs-special">,</span><span id="local-6989586621679074352"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074352"><span class="hs-identifier hs-var">m</span></a></span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeLocale -&gt; [(String, String)]
</span><a href="Data.Time.Format.Locale.html#months"><span class="hs-identifier hs-var hs-var">months</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074353"><span class="hs-identifier hs-var">locale</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[(String, String)] -&gt; Int -&gt; (String, String)
forall a. [a] -&gt; Int -&gt; a
</span><a href="../../base/src/GHC.List.html#%21%21"><span class="hs-operator hs-var">!!</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074352"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#-"><span class="hs-glyph hs-var">-</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">((Integer, Int, Int) -&gt; (String, String))
-&gt; (Day -&gt; (Integer, Int, Int)) -&gt; Day -&gt; (String, String)
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Day -&gt; (Integer, Int, Int)
</span><a href="Data.Time.Calendar.Gregorian.html#toGregorian"><span class="hs-identifier hs-var">toGregorian</span></a></span><span>
</span><span id="line-106"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'b'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; Day -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; Day -&gt; String))
-&gt; (FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeLocale -&gt; Day -&gt; String) -&gt; FormatOptions -&gt; Day -&gt; String
forall t.
(TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatString"><span class="hs-identifier hs-var">formatString</span></a></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; Day -&gt; String) -&gt; FormatOptions -&gt; Day -&gt; String)
-&gt; (TimeLocale -&gt; Day -&gt; String) -&gt; FormatOptions -&gt; Day -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679074349"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074349"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(String, String) -&gt; String
forall a b. (a, b) -&gt; b
</span><a href="../../base/src/Data.Tuple.html#snd"><span class="hs-identifier hs-var">snd</span></a></span><span> </span><span class="annot"><span class="annottext">((String, String) -&gt; String)
-&gt; (Day -&gt; (String, String)) -&gt; Day -&gt; String
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer
</span><span class="hs-identifier">_</span></span><span class="hs-special">,</span><span id="local-6989586621679074348"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074348"><span class="hs-identifier hs-var">m</span></a></span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeLocale -&gt; [(String, String)]
</span><a href="Data.Time.Format.Locale.html#months"><span class="hs-identifier hs-var hs-var">months</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074349"><span class="hs-identifier hs-var">locale</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[(String, String)] -&gt; Int -&gt; (String, String)
forall a. [a] -&gt; Int -&gt; a
</span><a href="../../base/src/GHC.List.html#%21%21"><span class="hs-operator hs-var">!!</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074348"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#-"><span class="hs-glyph hs-var">-</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">((Integer, Int, Int) -&gt; (String, String))
-&gt; (Day -&gt; (Integer, Int, Int)) -&gt; Day -&gt; (String, String)
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Day -&gt; (Integer, Int, Int)
</span><a href="Data.Time.Calendar.Gregorian.html#toGregorian"><span class="hs-identifier hs-var">toGregorian</span></a></span><span>
</span><span id="line-107"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'h'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; Day -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; Day -&gt; String))
-&gt; (FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeLocale -&gt; Day -&gt; String) -&gt; FormatOptions -&gt; Day -&gt; String
forall t.
(TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatString"><span class="hs-identifier hs-var">formatString</span></a></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; Day -&gt; String) -&gt; FormatOptions -&gt; Day -&gt; String)
-&gt; (TimeLocale -&gt; Day -&gt; String) -&gt; FormatOptions -&gt; Day -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679074347"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074347"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(String, String) -&gt; String
forall a b. (a, b) -&gt; b
</span><a href="../../base/src/Data.Tuple.html#snd"><span class="hs-identifier hs-var">snd</span></a></span><span> </span><span class="annot"><span class="annottext">((String, String) -&gt; String)
-&gt; (Day -&gt; (String, String)) -&gt; Day -&gt; String
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer
</span><span class="hs-identifier">_</span></span><span class="hs-special">,</span><span id="local-6989586621679074346"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074346"><span class="hs-identifier hs-var">m</span></a></span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeLocale -&gt; [(String, String)]
</span><a href="Data.Time.Format.Locale.html#months"><span class="hs-identifier hs-var hs-var">months</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074347"><span class="hs-identifier hs-var">locale</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[(String, String)] -&gt; Int -&gt; (String, String)
forall a. [a] -&gt; Int -&gt; a
</span><a href="../../base/src/GHC.List.html#%21%21"><span class="hs-operator hs-var">!!</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074346"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#-"><span class="hs-glyph hs-var">-</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">((Integer, Int, Int) -&gt; (String, String))
-&gt; (Day -&gt; (Integer, Int, Int)) -&gt; Day -&gt; (String, String)
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Day -&gt; (Integer, Int, Int)
</span><a href="Data.Time.Calendar.Gregorian.html#toGregorian"><span class="hs-identifier hs-var">toGregorian</span></a></span><span>
</span><span id="line-108"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'m'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; Day -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; Day -&gt; String))
-&gt; (FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Int -&gt; Char -&gt; (Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String
forall i t.
ShowPadded i =&gt;
Bool -&gt; Int -&gt; Char -&gt; (t -&gt; i) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-var">formatNumber</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>  </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">((Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String)
-&gt; (Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer
</span><span class="hs-identifier">_</span></span><span class="hs-special">,</span><span id="local-6989586621679074345"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074345"><span class="hs-identifier hs-var">m</span></a></span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074345"><span class="hs-identifier hs-var">m</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">((Integer, Int, Int) -&gt; Int)
-&gt; (Day -&gt; (Integer, Int, Int)) -&gt; Day -&gt; Int
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Day -&gt; (Integer, Int, Int)
</span><a href="Data.Time.Calendar.Gregorian.html#toGregorian"><span class="hs-identifier hs-var">toGregorian</span></a></span><span>
</span><span id="line-109"></span><span>    </span><span class="hs-comment">-- Day of Month</span><span>
</span><span id="line-110"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'d'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; Day -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; Day -&gt; String))
-&gt; (FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Int -&gt; Char -&gt; (Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String
forall i t.
ShowPadded i =&gt;
Bool -&gt; Int -&gt; Char -&gt; (t -&gt; i) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-var">formatNumber</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>  </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">((Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String)
-&gt; (Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer
</span><span class="hs-identifier">_</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span class="hs-special">,</span><span id="local-6989586621679074344"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074344"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074344"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">((Integer, Int, Int) -&gt; Int)
-&gt; (Day -&gt; (Integer, Int, Int)) -&gt; Day -&gt; Int
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Day -&gt; (Integer, Int, Int)
</span><a href="Data.Time.Calendar.Gregorian.html#toGregorian"><span class="hs-identifier hs-var">toGregorian</span></a></span><span>
</span><span id="line-111"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'e'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; Day -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; Day -&gt; String))
-&gt; (FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Int -&gt; Char -&gt; (Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String
forall i t.
ShowPadded i =&gt;
Bool -&gt; Int -&gt; Char -&gt; (t -&gt; i) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-var">formatNumber</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>  </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">' '</span></span><span> </span><span class="annot"><span class="annottext">((Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String)
-&gt; (Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer
</span><span class="hs-identifier">_</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span class="hs-special">,</span><span id="local-6989586621679074343"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074343"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074343"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">((Integer, Int, Int) -&gt; Int)
-&gt; (Day -&gt; (Integer, Int, Int)) -&gt; Day -&gt; Int
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Day -&gt; (Integer, Int, Int)
</span><a href="Data.Time.Calendar.Gregorian.html#toGregorian"><span class="hs-identifier hs-var">toGregorian</span></a></span><span>
</span><span id="line-112"></span><span>    </span><span class="hs-comment">-- Day of Year</span><span>
</span><span id="line-113"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'j'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; Day -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; Day -&gt; String))
-&gt; (FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Int -&gt; Char -&gt; (Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String
forall i t.
ShowPadded i =&gt;
Bool -&gt; Int -&gt; Char -&gt; (t -&gt; i) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-var">formatNumber</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>  </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">3</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">((Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String)
-&gt; (Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(Integer, Int) -&gt; Int
forall a b. (a, b) -&gt; b
</span><a href="../../base/src/Data.Tuple.html#snd"><span class="hs-identifier hs-var">snd</span></a></span><span> </span><span class="annot"><span class="annottext">((Integer, Int) -&gt; Int) -&gt; (Day -&gt; (Integer, Int)) -&gt; Day -&gt; Int
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Day -&gt; (Integer, Int)
</span><a href="Data.Time.Calendar.OrdinalDate.html#toOrdinalDate"><span class="hs-identifier hs-var">toOrdinalDate</span></a></span><span>
</span><span id="line-114"></span><span>
</span><span id="line-115"></span><span>    </span><span class="hs-comment">-- ISO 8601 Week Date</span><span>
</span><span id="line-116"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'G'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; Day -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; Day -&gt; String))
-&gt; (FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Int
-&gt; Char
-&gt; (Day -&gt; Integer)
-&gt; FormatOptions
-&gt; Day
-&gt; String
forall i t.
ShowPadded i =&gt;
Bool -&gt; Int -&gt; Char -&gt; (t -&gt; i) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-var">formatNumber</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">4</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">((Day -&gt; Integer) -&gt; FormatOptions -&gt; Day -&gt; String)
-&gt; (Day -&gt; Integer) -&gt; FormatOptions -&gt; Day -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span id="local-6989586621679074342"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679074342"><span class="hs-identifier hs-var">y</span></a></span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679074342"><span class="hs-identifier hs-var">y</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">((Integer, Int, Int) -&gt; Integer)
-&gt; (Day -&gt; (Integer, Int, Int)) -&gt; Day -&gt; Integer
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Day -&gt; (Integer, Int, Int)
</span><a href="Data.Time.Calendar.WeekDate.html#toWeekDate"><span class="hs-identifier hs-var">toWeekDate</span></a></span><span>
</span><span id="line-117"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'g'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; Day -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; Day -&gt; String))
-&gt; (FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Int
-&gt; Char
-&gt; (Day -&gt; Integer)
-&gt; FormatOptions
-&gt; Day
-&gt; String
forall i t.
ShowPadded i =&gt;
Bool -&gt; Int -&gt; Char -&gt; (t -&gt; i) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-var">formatNumber</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>  </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">((Day -&gt; Integer) -&gt; FormatOptions -&gt; Day -&gt; String)
-&gt; (Day -&gt; Integer) -&gt; FormatOptions -&gt; Day -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer
forall i. Integral i =&gt; i -&gt; i
</span><a href="Data.Time.Calendar.Private.html#mod100"><span class="hs-identifier hs-var">mod100</span></a></span><span> </span><span class="annot"><span class="annottext">(Integer -&gt; Integer) -&gt; (Day -&gt; Integer) -&gt; Day -&gt; Integer
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span id="local-6989586621679074340"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679074340"><span class="hs-identifier hs-var">y</span></a></span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679074340"><span class="hs-identifier hs-var">y</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">((Integer, Int, Int) -&gt; Integer)
-&gt; (Day -&gt; (Integer, Int, Int)) -&gt; Day -&gt; Integer
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Day -&gt; (Integer, Int, Int)
</span><a href="Data.Time.Calendar.WeekDate.html#toWeekDate"><span class="hs-identifier hs-var">toWeekDate</span></a></span><span>
</span><span id="line-118"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'f'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; Day -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; Day -&gt; String))
-&gt; (FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Int
-&gt; Char
-&gt; (Day -&gt; Integer)
-&gt; FormatOptions
-&gt; Day
-&gt; String
forall i t.
ShowPadded i =&gt;
Bool -&gt; Int -&gt; Char -&gt; (t -&gt; i) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-var">formatNumber</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">((Day -&gt; Integer) -&gt; FormatOptions -&gt; Day -&gt; String)
-&gt; (Day -&gt; Integer) -&gt; FormatOptions -&gt; Day -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer
forall i. Integral i =&gt; i -&gt; i
</span><a href="Data.Time.Calendar.Private.html#div100"><span class="hs-identifier hs-var">div100</span></a></span><span> </span><span class="annot"><span class="annottext">(Integer -&gt; Integer) -&gt; (Day -&gt; Integer) -&gt; Day -&gt; Integer
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span id="local-6989586621679074339"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679074339"><span class="hs-identifier hs-var">y</span></a></span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679074339"><span class="hs-identifier hs-var">y</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">((Integer, Int, Int) -&gt; Integer)
-&gt; (Day -&gt; (Integer, Int, Int)) -&gt; Day -&gt; Integer
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Day -&gt; (Integer, Int, Int)
</span><a href="Data.Time.Calendar.WeekDate.html#toWeekDate"><span class="hs-identifier hs-var">toWeekDate</span></a></span><span>
</span><span id="line-119"></span><span>
</span><span id="line-120"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'V'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; Day -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; Day -&gt; String))
-&gt; (FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Int -&gt; Char -&gt; (Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String
forall i t.
ShowPadded i =&gt;
Bool -&gt; Int -&gt; Char -&gt; (t -&gt; i) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-var">formatNumber</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>  </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">((Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String)
-&gt; (Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer
</span><span class="hs-identifier">_</span></span><span class="hs-special">,</span><span id="local-6989586621679074338"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074338"><span class="hs-identifier hs-var">w</span></a></span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074338"><span class="hs-identifier hs-var">w</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">((Integer, Int, Int) -&gt; Int)
-&gt; (Day -&gt; (Integer, Int, Int)) -&gt; Day -&gt; Int
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Day -&gt; (Integer, Int, Int)
</span><a href="Data.Time.Calendar.WeekDate.html#toWeekDate"><span class="hs-identifier hs-var">toWeekDate</span></a></span><span>
</span><span id="line-121"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'u'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; Day -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; Day -&gt; String))
-&gt; (FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Int -&gt; Char -&gt; (Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String
forall i t.
ShowPadded i =&gt;
Bool -&gt; Int -&gt; Char -&gt; (t -&gt; i) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-var">formatNumber</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>  </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">((Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String)
-&gt; (Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer
</span><span class="hs-identifier">_</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span class="hs-special">,</span><span id="local-6989586621679074337"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074337"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074337"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">((Integer, Int, Int) -&gt; Int)
-&gt; (Day -&gt; (Integer, Int, Int)) -&gt; Day -&gt; Int
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Day -&gt; (Integer, Int, Int)
</span><a href="Data.Time.Calendar.WeekDate.html#toWeekDate"><span class="hs-identifier hs-var">toWeekDate</span></a></span><span>
</span><span id="line-122"></span><span>
</span><span id="line-123"></span><span>    </span><span class="hs-comment">-- Day of week</span><span>
</span><span id="line-124"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'a'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; Day -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; Day -&gt; String))
-&gt; (FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeLocale -&gt; Day -&gt; String) -&gt; FormatOptions -&gt; Day -&gt; String
forall t.
(TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatString"><span class="hs-identifier hs-var">formatString</span></a></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; Day -&gt; String) -&gt; FormatOptions -&gt; Day -&gt; String)
-&gt; (TimeLocale -&gt; Day -&gt; String) -&gt; FormatOptions -&gt; Day -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679074336"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074336"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(String, String) -&gt; String
forall a b. (a, b) -&gt; b
</span><a href="../../base/src/Data.Tuple.html#snd"><span class="hs-identifier hs-var">snd</span></a></span><span> </span><span class="annot"><span class="annottext">((String, String) -&gt; String)
-&gt; (Day -&gt; (String, String)) -&gt; Day -&gt; String
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeLocale -&gt; [(String, String)]
</span><a href="Data.Time.Format.Locale.html#wDays"><span class="hs-identifier hs-var hs-var">wDays</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074336"><span class="hs-identifier hs-var">locale</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[(String, String)] -&gt; Int -&gt; (String, String)
forall a. [a] -&gt; Int -&gt; a
</span><a href="../../base/src/GHC.List.html#%21%21"><span class="hs-operator hs-var">!!</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Int -&gt; (String, String))
-&gt; (Day -&gt; Int) -&gt; Day -&gt; (String, String)
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">(Int, Int) -&gt; Int
forall a b. (a, b) -&gt; b
</span><a href="../../base/src/Data.Tuple.html#snd"><span class="hs-identifier hs-var">snd</span></a></span><span> </span><span class="annot"><span class="annottext">((Int, Int) -&gt; Int) -&gt; (Day -&gt; (Int, Int)) -&gt; Day -&gt; Int
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Day -&gt; (Int, Int)
</span><a href="Data.Time.Calendar.OrdinalDate.html#sundayStartWeek"><span class="hs-identifier hs-var">sundayStartWeek</span></a></span><span>
</span><span id="line-125"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'A'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; Day -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; Day -&gt; String))
-&gt; (FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(TimeLocale -&gt; Day -&gt; String) -&gt; FormatOptions -&gt; Day -&gt; String
forall t.
(TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatString"><span class="hs-identifier hs-var">formatString</span></a></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; Day -&gt; String) -&gt; FormatOptions -&gt; Day -&gt; String)
-&gt; (TimeLocale -&gt; Day -&gt; String) -&gt; FormatOptions -&gt; Day -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679074334"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074334"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(String, String) -&gt; String
forall a b. (a, b) -&gt; a
</span><a href="../../base/src/Data.Tuple.html#fst"><span class="hs-identifier hs-var">fst</span></a></span><span> </span><span class="annot"><span class="annottext">((String, String) -&gt; String)
-&gt; (Day -&gt; (String, String)) -&gt; Day -&gt; String
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeLocale -&gt; [(String, String)]
</span><a href="Data.Time.Format.Locale.html#wDays"><span class="hs-identifier hs-var hs-var">wDays</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679074334"><span class="hs-identifier hs-var">locale</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[(String, String)] -&gt; Int -&gt; (String, String)
forall a. [a] -&gt; Int -&gt; a
</span><a href="../../base/src/GHC.List.html#%21%21"><span class="hs-operator hs-var">!!</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Int -&gt; (String, String))
-&gt; (Day -&gt; Int) -&gt; Day -&gt; (String, String)
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">(Int, Int) -&gt; Int
forall a b. (a, b) -&gt; b
</span><a href="../../base/src/Data.Tuple.html#snd"><span class="hs-identifier hs-var">snd</span></a></span><span> </span><span class="annot"><span class="annottext">((Int, Int) -&gt; Int) -&gt; (Day -&gt; (Int, Int)) -&gt; Day -&gt; Int
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Day -&gt; (Int, Int)
</span><a href="Data.Time.Calendar.OrdinalDate.html#sundayStartWeek"><span class="hs-identifier hs-var">sundayStartWeek</span></a></span><span>
</span><span id="line-126"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'U'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; Day -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; Day -&gt; String))
-&gt; (FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Int -&gt; Char -&gt; (Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String
forall i t.
ShowPadded i =&gt;
Bool -&gt; Int -&gt; Char -&gt; (t -&gt; i) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-var">formatNumber</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>  </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">((Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String)
-&gt; (Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(Int, Int) -&gt; Int
forall a b. (a, b) -&gt; a
</span><a href="../../base/src/Data.Tuple.html#fst"><span class="hs-identifier hs-var">fst</span></a></span><span> </span><span class="annot"><span class="annottext">((Int, Int) -&gt; Int) -&gt; (Day -&gt; (Int, Int)) -&gt; Day -&gt; Int
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Day -&gt; (Int, Int)
</span><a href="Data.Time.Calendar.OrdinalDate.html#sundayStartWeek"><span class="hs-identifier hs-var">sundayStartWeek</span></a></span><span>
</span><span id="line-127"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'w'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; Day -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; Day -&gt; String))
-&gt; (FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Int -&gt; Char -&gt; (Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String
forall i t.
ShowPadded i =&gt;
Bool -&gt; Int -&gt; Char -&gt; (t -&gt; i) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-var">formatNumber</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>  </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">((Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String)
-&gt; (Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(Int, Int) -&gt; Int
forall a b. (a, b) -&gt; b
</span><a href="../../base/src/Data.Tuple.html#snd"><span class="hs-identifier hs-var">snd</span></a></span><span> </span><span class="annot"><span class="annottext">((Int, Int) -&gt; Int) -&gt; (Day -&gt; (Int, Int)) -&gt; Day -&gt; Int
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Day -&gt; (Int, Int)
</span><a href="Data.Time.Calendar.OrdinalDate.html#sundayStartWeek"><span class="hs-identifier hs-var">sundayStartWeek</span></a></span><span>
</span><span id="line-128"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'W'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; Day -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; Day -&gt; String))
-&gt; (FormatOptions -&gt; Day -&gt; String)
-&gt; Maybe (FormatOptions -&gt; Day -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Int -&gt; Char -&gt; (Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String
forall i t.
ShowPadded i =&gt;
Bool -&gt; Int -&gt; Char -&gt; (t -&gt; i) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-var">formatNumber</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>  </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">((Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String)
-&gt; (Day -&gt; Int) -&gt; FormatOptions -&gt; Day -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(Int, Int) -&gt; Int
forall a b. (a, b) -&gt; a
</span><a href="../../base/src/Data.Tuple.html#fst"><span class="hs-identifier hs-var">fst</span></a></span><span> </span><span class="annot"><span class="annottext">((Int, Int) -&gt; Int) -&gt; (Day -&gt; (Int, Int)) -&gt; Day -&gt; Int
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Day -&gt; (Int, Int)
</span><a href="Data.Time.Calendar.OrdinalDate.html#mondayStartWeek"><span class="hs-identifier hs-var">mondayStartWeek</span></a></span><span>
</span><span id="line-129"></span><span>
</span><span id="line-130"></span><span>    </span><span class="hs-comment">-- Default</span><span>
</span><span id="line-131"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe (FormatOptions -&gt; Day -&gt; String)
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-132"></span><span>
</span><span id="line-133"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatTime"><span class="hs-identifier hs-type">FormatTime</span></a></span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.UTCTime.html#UTCTime"><span class="hs-identifier hs-type">UTCTime</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-134"></span><span>    </span><span id="local-6989586621679074327"><span class="annot"><span class="annottext">formatCharacter :: Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; UTCTime -&gt; String)
</span><a href="#local-6989586621679074327"><span class="hs-identifier hs-var hs-var hs-var hs-var">formatCharacter</span></a></span></span><span> </span><span id="local-6989586621679074326"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679074326"><span class="hs-identifier hs-var">alt</span></a></span></span><span> </span><span id="local-6989586621679074325"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679074325"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; ZonedTime -&gt; String)
 -&gt; FormatOptions -&gt; UTCTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; ZonedTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; UTCTime -&gt; String)
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-identifier hs-var">fmap</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679074324"><span class="annot"><span class="annottext">FormatOptions -&gt; ZonedTime -&gt; String
</span><a href="#local-6989586621679074324"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span id="local-6989586621679074323"><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679074323"><span class="hs-identifier hs-var">fo</span></a></span></span><span> </span><span id="local-6989586621679074322"><span class="annot"><span class="annottext">UTCTime
</span><a href="#local-6989586621679074322"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">FormatOptions -&gt; ZonedTime -&gt; String
</span><a href="#local-6989586621679074324"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679074323"><span class="hs-identifier hs-var">fo</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeZone -&gt; UTCTime -&gt; ZonedTime
</span><a href="Data.Time.LocalTime.Internal.ZonedTime.html#utcToZonedTime"><span class="hs-identifier hs-var">utcToZonedTime</span></a></span><span> </span><span class="annot"><span class="annottext">TimeZone
</span><a href="Data.Time.LocalTime.Internal.TimeZone.html#utc"><span class="hs-identifier hs-var">utc</span></a></span><span> </span><span class="annot"><span class="annottext">UTCTime
</span><a href="#local-6989586621679074322"><span class="hs-identifier hs-var">t</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; ZonedTime -&gt; String)
forall t.
FormatTime t =&gt;
Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; t -&gt; String)
</span><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679074326"><span class="hs-identifier hs-var">alt</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679074325"><span class="hs-identifier hs-var">c</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-135"></span><span>
</span><span id="line-136"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatTime"><span class="hs-identifier hs-type">FormatTime</span></a></span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.UniversalTime.html#UniversalTime"><span class="hs-identifier hs-type">UniversalTime</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-137"></span><span>    </span><span id="local-6989586621679074312"><span class="annot"><span class="annottext">formatCharacter :: Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; UniversalTime -&gt; String)
</span><a href="#local-6989586621679074312"><span class="hs-identifier hs-var hs-var hs-var hs-var">formatCharacter</span></a></span></span><span> </span><span id="local-6989586621679074311"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679074311"><span class="hs-identifier hs-var">alt</span></a></span></span><span> </span><span id="local-6989586621679074310"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679074310"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; LocalTime -&gt; String)
 -&gt; FormatOptions -&gt; UniversalTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; LocalTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; UniversalTime -&gt; String)
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-identifier hs-var">fmap</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679074309"><span class="annot"><span class="annottext">FormatOptions -&gt; LocalTime -&gt; String
</span><a href="#local-6989586621679074309"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span id="local-6989586621679074308"><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679074308"><span class="hs-identifier hs-var">fo</span></a></span></span><span> </span><span id="local-6989586621679074307"><span class="annot"><span class="annottext">UniversalTime
</span><a href="#local-6989586621679074307"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">FormatOptions -&gt; LocalTime -&gt; String
</span><a href="#local-6989586621679074309"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679074308"><span class="hs-identifier hs-var">fo</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Rational -&gt; UniversalTime -&gt; LocalTime
</span><a href="Data.Time.LocalTime.Internal.LocalTime.html#ut1ToLocalTime"><span class="hs-identifier hs-var">ut1ToLocalTime</span></a></span><span> </span><span class="annot"><span class="annottext">Rational
</span><span class="hs-number">0</span></span><span> </span><span class="annot"><span class="annottext">UniversalTime
</span><a href="#local-6989586621679074307"><span class="hs-identifier hs-var">t</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; LocalTime -&gt; String)
forall t.
FormatTime t =&gt;
Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; t -&gt; String)
</span><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679074311"><span class="hs-identifier hs-var">alt</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679074310"><span class="hs-identifier hs-var">c</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-138"></span><span>
</span><span id="line-139"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatTime"><span class="hs-identifier hs-type">FormatTime</span></a></span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#NominalDiffTime"><span class="hs-identifier hs-type">NominalDiffTime</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-140"></span><span>    </span><span id="local-6989586621679074252"><span class="annot"><span class="annottext">formatCharacter :: Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String)
</span><a href="#local-6989586621679074252"><span class="hs-identifier hs-var hs-var hs-var hs-var">formatCharacter</span></a></span></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'w'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; POSIXTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String))
-&gt; (FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int
-&gt; (POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">((POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; (POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">POSIXTime -&gt; POSIXTime -&gt; Integer
forall a b. (Real a, Integral b) =&gt; a -&gt; a -&gt; b
</span><a href="Data.Time.Calendar.Private.html#quotBy"><span class="hs-identifier hs-var">quotBy</span></a></span><span> </span><span class="annot"><span class="annottext">(POSIXTime -&gt; POSIXTime -&gt; Integer)
-&gt; POSIXTime -&gt; POSIXTime -&gt; Integer
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">POSIXTime
</span><span class="hs-number">7</span></span><span> </span><span class="annot"><span class="annottext">POSIXTime -&gt; POSIXTime -&gt; POSIXTime
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span> </span><span class="annot"><span class="annottext">POSIXTime
</span><span class="hs-number">86400</span></span><span>
</span><span id="line-141"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'d'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; POSIXTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String))
-&gt; (FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int
-&gt; (POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">((POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; (POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">POSIXTime -&gt; POSIXTime -&gt; Integer
forall a b. (Real a, Integral b) =&gt; a -&gt; a -&gt; b
</span><a href="Data.Time.Calendar.Private.html#quotBy"><span class="hs-identifier hs-var">quotBy</span></a></span><span> </span><span class="annot"><span class="annottext">POSIXTime
</span><span class="hs-number">86400</span></span><span>
</span><span id="line-142"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'D'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; POSIXTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String))
-&gt; (FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int
-&gt; (POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">((POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; (POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Real a =&gt; a -&gt; a -&gt; a
</span><a href="Data.Time.Calendar.Private.html#remBy"><span class="hs-identifier hs-var">remBy</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">7</span></span><span> </span><span class="annot"><span class="annottext">(Integer -&gt; Integer)
-&gt; (POSIXTime -&gt; Integer) -&gt; POSIXTime -&gt; Integer
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">POSIXTime -&gt; POSIXTime -&gt; Integer
forall a b. (Real a, Integral b) =&gt; a -&gt; a -&gt; b
</span><a href="Data.Time.Calendar.Private.html#quotBy"><span class="hs-identifier hs-var">quotBy</span></a></span><span> </span><span class="annot"><span class="annottext">POSIXTime
</span><span class="hs-number">86400</span></span><span>
</span><span id="line-143"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'h'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; POSIXTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String))
-&gt; (FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int
-&gt; (POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">((POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; (POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">POSIXTime -&gt; POSIXTime -&gt; Integer
forall a b. (Real a, Integral b) =&gt; a -&gt; a -&gt; b
</span><a href="Data.Time.Calendar.Private.html#quotBy"><span class="hs-identifier hs-var">quotBy</span></a></span><span> </span><span class="annot"><span class="annottext">POSIXTime
</span><span class="hs-number">3600</span></span><span>
</span><span id="line-144"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'H'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; POSIXTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String))
-&gt; (FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int
-&gt; (POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">((POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; (POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Real a =&gt; a -&gt; a -&gt; a
</span><a href="Data.Time.Calendar.Private.html#remBy"><span class="hs-identifier hs-var">remBy</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">24</span></span><span> </span><span class="annot"><span class="annottext">(Integer -&gt; Integer)
-&gt; (POSIXTime -&gt; Integer) -&gt; POSIXTime -&gt; Integer
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">POSIXTime -&gt; POSIXTime -&gt; Integer
forall a b. (Real a, Integral b) =&gt; a -&gt; a -&gt; b
</span><a href="Data.Time.Calendar.Private.html#quotBy"><span class="hs-identifier hs-var">quotBy</span></a></span><span> </span><span class="annot"><span class="annottext">POSIXTime
</span><span class="hs-number">3600</span></span><span>
</span><span id="line-145"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'m'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; POSIXTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String))
-&gt; (FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int
-&gt; (POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">((POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; (POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">POSIXTime -&gt; POSIXTime -&gt; Integer
forall a b. (Real a, Integral b) =&gt; a -&gt; a -&gt; b
</span><a href="Data.Time.Calendar.Private.html#quotBy"><span class="hs-identifier hs-var">quotBy</span></a></span><span> </span><span class="annot"><span class="annottext">POSIXTime
</span><span class="hs-number">60</span></span><span>
</span><span id="line-146"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'M'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; POSIXTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String))
-&gt; (FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int
-&gt; (POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">((POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; (POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Real a =&gt; a -&gt; a -&gt; a
</span><a href="Data.Time.Calendar.Private.html#remBy"><span class="hs-identifier hs-var">remBy</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">60</span></span><span> </span><span class="annot"><span class="annottext">(Integer -&gt; Integer)
-&gt; (POSIXTime -&gt; Integer) -&gt; POSIXTime -&gt; Integer
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">POSIXTime -&gt; POSIXTime -&gt; Integer
forall a b. (Real a, Integral b) =&gt; a -&gt; a -&gt; b
</span><a href="Data.Time.Calendar.Private.html#quotBy"><span class="hs-identifier hs-var">quotBy</span></a></span><span> </span><span class="annot"><span class="annottext">POSIXTime
</span><span class="hs-number">60</span></span><span>
</span><span id="line-147"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'s'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; POSIXTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String))
-&gt; (FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int
-&gt; (POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">((POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; (POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">POSIXTime -&gt; POSIXTime -&gt; Integer
forall a b. (Real a, Integral b) =&gt; a -&gt; a -&gt; b
</span><a href="Data.Time.Calendar.Private.html#quotBy"><span class="hs-identifier hs-var">quotBy</span></a></span><span> </span><span class="annot"><span class="annottext">POSIXTime
</span><span class="hs-number">1</span></span><span>
</span><span id="line-148"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'s'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; POSIXTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String))
-&gt; (FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Bool
-&gt; Int
-&gt; Char
-&gt; (TimeLocale -&gt; PadOption -&gt; POSIXTime -&gt; String)
-&gt; FormatOptions
-&gt; POSIXTime
-&gt; String
forall t.
Bool
-&gt; Bool
-&gt; Int
-&gt; Char
-&gt; (TimeLocale -&gt; PadOption -&gt; t -&gt; String)
-&gt; FormatOptions
-&gt; t
-&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatGeneral"><span class="hs-identifier hs-var">formatGeneral</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">12</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; PadOption -&gt; POSIXTime -&gt; String)
 -&gt; FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; (TimeLocale -&gt; PadOption -&gt; POSIXTime -&gt; String)
-&gt; FormatOptions
-&gt; POSIXTime
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span class="annot"><span class="annottext">TimeLocale
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679074247"><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679074247"><span class="hs-identifier hs-var">padf</span></a></span></span><span> </span><span id="local-6989586621679074246"><span class="annot"><span class="annottext">POSIXTime
</span><a href="#local-6989586621679074246"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">PadOption -&gt; PadOption -&gt; Pico -&gt; String
forall a.
HasResolution a =&gt;
PadOption -&gt; PadOption -&gt; Fixed a -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#showPaddedFixed"><span class="hs-identifier hs-var">showPaddedFixed</span></a></span><span> </span><span class="annot"><span class="annottext">PadOption
</span><a href="Data.Time.Calendar.Private.html#NoPad"><span class="hs-identifier hs-var">NoPad</span></a></span><span> </span><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679074247"><span class="hs-identifier hs-var">padf</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">POSIXTime -&gt; Pico
forall a b. (Real a, Fractional b) =&gt; a -&gt; b
</span><a href="../../base/src/GHC.Real.html#realToFrac"><span class="hs-identifier hs-var">realToFrac</span></a></span><span> </span><span class="annot"><span class="annottext">POSIXTime
</span><a href="#local-6989586621679074246"><span class="hs-identifier hs-var">t</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/Data.Fixed.html#Pico"><span class="hs-identifier hs-type">Pico</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-149"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'S'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; POSIXTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String))
-&gt; (FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int
-&gt; (POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">((POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; (POSIXTime -&gt; Integer) -&gt; FormatOptions -&gt; POSIXTime -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Real a =&gt; a -&gt; a -&gt; a
</span><a href="Data.Time.Calendar.Private.html#remBy"><span class="hs-identifier hs-var">remBy</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">60</span></span><span> </span><span class="annot"><span class="annottext">(Integer -&gt; Integer)
-&gt; (POSIXTime -&gt; Integer) -&gt; POSIXTime -&gt; Integer
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">POSIXTime -&gt; POSIXTime -&gt; Integer
forall a b. (Real a, Integral b) =&gt; a -&gt; a -&gt; b
</span><a href="Data.Time.Calendar.Private.html#quotBy"><span class="hs-identifier hs-var">quotBy</span></a></span><span> </span><span class="annot"><span class="annottext">POSIXTime
</span><span class="hs-number">1</span></span><span>
</span><span id="line-150"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'S'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; POSIXTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String))
-&gt; (FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Bool
-&gt; Int
-&gt; Char
-&gt; (TimeLocale -&gt; PadOption -&gt; POSIXTime -&gt; String)
-&gt; FormatOptions
-&gt; POSIXTime
-&gt; String
forall t.
Bool
-&gt; Bool
-&gt; Int
-&gt; Char
-&gt; (TimeLocale -&gt; PadOption -&gt; t -&gt; String)
-&gt; FormatOptions
-&gt; t
-&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatGeneral"><span class="hs-identifier hs-var">formatGeneral</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">12</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; PadOption -&gt; POSIXTime -&gt; String)
 -&gt; FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; (TimeLocale -&gt; PadOption -&gt; POSIXTime -&gt; String)
-&gt; FormatOptions
-&gt; POSIXTime
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span class="annot"><span class="annottext">TimeLocale
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679074243"><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679074243"><span class="hs-identifier hs-var">padf</span></a></span></span><span> </span><span id="local-6989586621679074242"><span class="annot"><span class="annottext">POSIXTime
</span><a href="#local-6989586621679074242"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-151"></span><span>        </span><span id="local-6989586621679074241"><span class="annot"><span class="annottext">padn :: PadOption
</span><a href="#local-6989586621679074241"><span class="hs-identifier hs-var hs-var">padn</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679074243"><span class="hs-identifier hs-var">padf</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-152"></span><span>            </span><span class="annot"><span class="annottext">PadOption
</span><a href="Data.Time.Calendar.Private.html#NoPad"><span class="hs-identifier hs-var">NoPad</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">PadOption
</span><a href="Data.Time.Calendar.Private.html#NoPad"><span class="hs-identifier hs-var">NoPad</span></a></span><span>
</span><span id="line-153"></span><span>            </span><span class="annot"><a href="Data.Time.Calendar.Private.html#Pad"><span class="hs-identifier hs-type">Pad</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679074239"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679074239"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Char -&gt; PadOption
</span><a href="Data.Time.Calendar.Private.html#Pad"><span class="hs-identifier hs-var">Pad</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679074239"><span class="hs-identifier hs-var">c</span></a></span><span>
</span><span id="line-154"></span><span>        </span><span class="hs-keyword">in</span><span> </span><span class="annot"><span class="annottext">PadOption -&gt; PadOption -&gt; Pico -&gt; String
forall a.
HasResolution a =&gt;
PadOption -&gt; PadOption -&gt; Fixed a -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#showPaddedFixed"><span class="hs-identifier hs-var">showPaddedFixed</span></a></span><span> </span><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679074241"><span class="hs-identifier hs-var">padn</span></a></span><span> </span><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679074243"><span class="hs-identifier hs-var">padf</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">POSIXTime -&gt; Pico
forall a b. (Real a, Fractional b) =&gt; a -&gt; b
</span><a href="../../base/src/GHC.Real.html#realToFrac"><span class="hs-identifier hs-var">realToFrac</span></a></span><span> </span><span class="annot"><span class="annottext">(POSIXTime -&gt; Pico) -&gt; POSIXTime -&gt; Pico
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">POSIXTime -&gt; POSIXTime -&gt; POSIXTime
forall a. Real a =&gt; a -&gt; a -&gt; a
</span><a href="Data.Time.Calendar.Private.html#remBy"><span class="hs-identifier hs-var">remBy</span></a></span><span> </span><span class="annot"><span class="annottext">POSIXTime
</span><span class="hs-number">60</span></span><span> </span><span class="annot"><span class="annottext">POSIXTime
</span><a href="#local-6989586621679074242"><span class="hs-identifier hs-var">t</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/Data.Fixed.html#Pico"><span class="hs-identifier hs-type">Pico</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-155"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe (FormatOptions -&gt; POSIXTime -&gt; String)
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-156"></span><span>
</span><span id="line-157"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatTime"><span class="hs-identifier hs-type">FormatTime</span></a></span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.DiffTime.html#DiffTime"><span class="hs-identifier hs-type">DiffTime</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-158"></span><span>    </span><span id="local-6989586621679074189"><span class="annot"><span class="annottext">formatCharacter :: Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String)
</span><a href="#local-6989586621679074189"><span class="hs-identifier hs-var hs-var hs-var hs-var">formatCharacter</span></a></span></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'w'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; DiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; DiffTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String))
-&gt; (FormatOptions -&gt; DiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; (DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">((DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String)
-&gt; (DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">DiffTime -&gt; DiffTime -&gt; Integer
forall a b. (Real a, Integral b) =&gt; a -&gt; a -&gt; b
</span><a href="Data.Time.Calendar.Private.html#quotBy"><span class="hs-identifier hs-var">quotBy</span></a></span><span> </span><span class="annot"><span class="annottext">(DiffTime -&gt; DiffTime -&gt; Integer)
-&gt; DiffTime -&gt; DiffTime -&gt; Integer
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">DiffTime
</span><span class="hs-number">7</span></span><span> </span><span class="annot"><span class="annottext">DiffTime -&gt; DiffTime -&gt; DiffTime
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span> </span><span class="annot"><span class="annottext">DiffTime
</span><span class="hs-number">86400</span></span><span>
</span><span id="line-159"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'d'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; DiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; DiffTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String))
-&gt; (FormatOptions -&gt; DiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; (DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">((DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String)
-&gt; (DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">DiffTime -&gt; DiffTime -&gt; Integer
forall a b. (Real a, Integral b) =&gt; a -&gt; a -&gt; b
</span><a href="Data.Time.Calendar.Private.html#quotBy"><span class="hs-identifier hs-var">quotBy</span></a></span><span> </span><span class="annot"><span class="annottext">DiffTime
</span><span class="hs-number">86400</span></span><span>
</span><span id="line-160"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'D'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; DiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; DiffTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String))
-&gt; (FormatOptions -&gt; DiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; (DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">((DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String)
-&gt; (DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Real a =&gt; a -&gt; a -&gt; a
</span><a href="Data.Time.Calendar.Private.html#remBy"><span class="hs-identifier hs-var">remBy</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">7</span></span><span> </span><span class="annot"><span class="annottext">(Integer -&gt; Integer)
-&gt; (DiffTime -&gt; Integer) -&gt; DiffTime -&gt; Integer
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">DiffTime -&gt; DiffTime -&gt; Integer
forall a b. (Real a, Integral b) =&gt; a -&gt; a -&gt; b
</span><a href="Data.Time.Calendar.Private.html#quotBy"><span class="hs-identifier hs-var">quotBy</span></a></span><span> </span><span class="annot"><span class="annottext">DiffTime
</span><span class="hs-number">86400</span></span><span>
</span><span id="line-161"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'h'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; DiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; DiffTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String))
-&gt; (FormatOptions -&gt; DiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; (DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">((DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String)
-&gt; (DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">DiffTime -&gt; DiffTime -&gt; Integer
forall a b. (Real a, Integral b) =&gt; a -&gt; a -&gt; b
</span><a href="Data.Time.Calendar.Private.html#quotBy"><span class="hs-identifier hs-var">quotBy</span></a></span><span> </span><span class="annot"><span class="annottext">DiffTime
</span><span class="hs-number">3600</span></span><span>
</span><span id="line-162"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'H'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; DiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; DiffTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String))
-&gt; (FormatOptions -&gt; DiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; (DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">((DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String)
-&gt; (DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Real a =&gt; a -&gt; a -&gt; a
</span><a href="Data.Time.Calendar.Private.html#remBy"><span class="hs-identifier hs-var">remBy</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">24</span></span><span> </span><span class="annot"><span class="annottext">(Integer -&gt; Integer)
-&gt; (DiffTime -&gt; Integer) -&gt; DiffTime -&gt; Integer
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">DiffTime -&gt; DiffTime -&gt; Integer
forall a b. (Real a, Integral b) =&gt; a -&gt; a -&gt; b
</span><a href="Data.Time.Calendar.Private.html#quotBy"><span class="hs-identifier hs-var">quotBy</span></a></span><span> </span><span class="annot"><span class="annottext">DiffTime
</span><span class="hs-number">3600</span></span><span>
</span><span id="line-163"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'m'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; DiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; DiffTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String))
-&gt; (FormatOptions -&gt; DiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; (DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">((DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String)
-&gt; (DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">DiffTime -&gt; DiffTime -&gt; Integer
forall a b. (Real a, Integral b) =&gt; a -&gt; a -&gt; b
</span><a href="Data.Time.Calendar.Private.html#quotBy"><span class="hs-identifier hs-var">quotBy</span></a></span><span> </span><span class="annot"><span class="annottext">DiffTime
</span><span class="hs-number">60</span></span><span>
</span><span id="line-164"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'M'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; DiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; DiffTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String))
-&gt; (FormatOptions -&gt; DiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; (DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">((DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String)
-&gt; (DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Real a =&gt; a -&gt; a -&gt; a
</span><a href="Data.Time.Calendar.Private.html#remBy"><span class="hs-identifier hs-var">remBy</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">60</span></span><span> </span><span class="annot"><span class="annottext">(Integer -&gt; Integer)
-&gt; (DiffTime -&gt; Integer) -&gt; DiffTime -&gt; Integer
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">DiffTime -&gt; DiffTime -&gt; Integer
forall a b. (Real a, Integral b) =&gt; a -&gt; a -&gt; b
</span><a href="Data.Time.Calendar.Private.html#quotBy"><span class="hs-identifier hs-var">quotBy</span></a></span><span> </span><span class="annot"><span class="annottext">DiffTime
</span><span class="hs-number">60</span></span><span>
</span><span id="line-165"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'s'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; DiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; DiffTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String))
-&gt; (FormatOptions -&gt; DiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; (DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">((DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String)
-&gt; (DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">DiffTime -&gt; DiffTime -&gt; Integer
forall a b. (Real a, Integral b) =&gt; a -&gt; a -&gt; b
</span><a href="Data.Time.Calendar.Private.html#quotBy"><span class="hs-identifier hs-var">quotBy</span></a></span><span> </span><span class="annot"><span class="annottext">DiffTime
</span><span class="hs-number">1</span></span><span>
</span><span id="line-166"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'s'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; DiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; DiffTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String))
-&gt; (FormatOptions -&gt; DiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Bool
-&gt; Int
-&gt; Char
-&gt; (TimeLocale -&gt; PadOption -&gt; DiffTime -&gt; String)
-&gt; FormatOptions
-&gt; DiffTime
-&gt; String
forall t.
Bool
-&gt; Bool
-&gt; Int
-&gt; Char
-&gt; (TimeLocale -&gt; PadOption -&gt; t -&gt; String)
-&gt; FormatOptions
-&gt; t
-&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatGeneral"><span class="hs-identifier hs-var">formatGeneral</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">12</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; PadOption -&gt; DiffTime -&gt; String)
 -&gt; FormatOptions -&gt; DiffTime -&gt; String)
-&gt; (TimeLocale -&gt; PadOption -&gt; DiffTime -&gt; String)
-&gt; FormatOptions
-&gt; DiffTime
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span class="annot"><span class="annottext">TimeLocale
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679074188"><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679074188"><span class="hs-identifier hs-var">padf</span></a></span></span><span> </span><span id="local-6989586621679074187"><span class="annot"><span class="annottext">DiffTime
</span><a href="#local-6989586621679074187"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">PadOption -&gt; PadOption -&gt; Pico -&gt; String
forall a.
HasResolution a =&gt;
PadOption -&gt; PadOption -&gt; Fixed a -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#showPaddedFixed"><span class="hs-identifier hs-var">showPaddedFixed</span></a></span><span> </span><span class="annot"><span class="annottext">PadOption
</span><a href="Data.Time.Calendar.Private.html#NoPad"><span class="hs-identifier hs-var">NoPad</span></a></span><span> </span><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679074188"><span class="hs-identifier hs-var">padf</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">DiffTime -&gt; Pico
forall a b. (Real a, Fractional b) =&gt; a -&gt; b
</span><a href="../../base/src/GHC.Real.html#realToFrac"><span class="hs-identifier hs-var">realToFrac</span></a></span><span> </span><span class="annot"><span class="annottext">DiffTime
</span><a href="#local-6989586621679074187"><span class="hs-identifier hs-var">t</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/Data.Fixed.html#Pico"><span class="hs-identifier hs-type">Pico</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-167"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'S'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; DiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; DiffTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String))
-&gt; (FormatOptions -&gt; DiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; (DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">((DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String)
-&gt; (DiffTime -&gt; Integer) -&gt; FormatOptions -&gt; DiffTime -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Real a =&gt; a -&gt; a -&gt; a
</span><a href="Data.Time.Calendar.Private.html#remBy"><span class="hs-identifier hs-var">remBy</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">60</span></span><span> </span><span class="annot"><span class="annottext">(Integer -&gt; Integer)
-&gt; (DiffTime -&gt; Integer) -&gt; DiffTime -&gt; Integer
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">DiffTime -&gt; DiffTime -&gt; Integer
forall a b. (Real a, Integral b) =&gt; a -&gt; a -&gt; b
</span><a href="Data.Time.Calendar.Private.html#quotBy"><span class="hs-identifier hs-var">quotBy</span></a></span><span> </span><span class="annot"><span class="annottext">DiffTime
</span><span class="hs-number">1</span></span><span>
</span><span id="line-168"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'S'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; DiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; DiffTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String))
-&gt; (FormatOptions -&gt; DiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; DiffTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Bool
-&gt; Int
-&gt; Char
-&gt; (TimeLocale -&gt; PadOption -&gt; DiffTime -&gt; String)
-&gt; FormatOptions
-&gt; DiffTime
-&gt; String
forall t.
Bool
-&gt; Bool
-&gt; Int
-&gt; Char
-&gt; (TimeLocale -&gt; PadOption -&gt; t -&gt; String)
-&gt; FormatOptions
-&gt; t
-&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatGeneral"><span class="hs-identifier hs-var">formatGeneral</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">12</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; PadOption -&gt; DiffTime -&gt; String)
 -&gt; FormatOptions -&gt; DiffTime -&gt; String)
-&gt; (TimeLocale -&gt; PadOption -&gt; DiffTime -&gt; String)
-&gt; FormatOptions
-&gt; DiffTime
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span class="annot"><span class="annottext">TimeLocale
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679074186"><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679074186"><span class="hs-identifier hs-var">padf</span></a></span></span><span> </span><span id="local-6989586621679074185"><span class="annot"><span class="annottext">DiffTime
</span><a href="#local-6989586621679074185"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-169"></span><span>        </span><span id="local-6989586621679074184"><span class="annot"><span class="annottext">padn :: PadOption
</span><a href="#local-6989586621679074184"><span class="hs-identifier hs-var hs-var">padn</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679074186"><span class="hs-identifier hs-var">padf</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-170"></span><span>            </span><span class="annot"><span class="annottext">PadOption
</span><a href="Data.Time.Calendar.Private.html#NoPad"><span class="hs-identifier hs-var">NoPad</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">PadOption
</span><a href="Data.Time.Calendar.Private.html#NoPad"><span class="hs-identifier hs-var">NoPad</span></a></span><span>
</span><span id="line-171"></span><span>            </span><span class="annot"><a href="Data.Time.Calendar.Private.html#Pad"><span class="hs-identifier hs-type">Pad</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679074183"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679074183"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Char -&gt; PadOption
</span><a href="Data.Time.Calendar.Private.html#Pad"><span class="hs-identifier hs-var">Pad</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679074183"><span class="hs-identifier hs-var">c</span></a></span><span>
</span><span id="line-172"></span><span>        </span><span class="hs-keyword">in</span><span> </span><span class="annot"><span class="annottext">PadOption -&gt; PadOption -&gt; Pico -&gt; String
forall a.
HasResolution a =&gt;
PadOption -&gt; PadOption -&gt; Fixed a -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#showPaddedFixed"><span class="hs-identifier hs-var">showPaddedFixed</span></a></span><span> </span><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679074184"><span class="hs-identifier hs-var">padn</span></a></span><span> </span><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679074186"><span class="hs-identifier hs-var">padf</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">DiffTime -&gt; Pico
forall a b. (Real a, Fractional b) =&gt; a -&gt; b
</span><a href="../../base/src/GHC.Real.html#realToFrac"><span class="hs-identifier hs-var">realToFrac</span></a></span><span> </span><span class="annot"><span class="annottext">(DiffTime -&gt; Pico) -&gt; DiffTime -&gt; Pico
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">DiffTime -&gt; DiffTime -&gt; DiffTime
forall a. Real a =&gt; a -&gt; a -&gt; a
</span><a href="Data.Time.Calendar.Private.html#remBy"><span class="hs-identifier hs-var">remBy</span></a></span><span> </span><span class="annot"><span class="annottext">DiffTime
</span><span class="hs-number">60</span></span><span> </span><span class="annot"><span class="annottext">DiffTime
</span><a href="#local-6989586621679074185"><span class="hs-identifier hs-var">t</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/Data.Fixed.html#Pico"><span class="hs-identifier hs-type">Pico</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-173"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe (FormatOptions -&gt; DiffTime -&gt; String)
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-174"></span><span>
</span><span id="line-175"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatTime"><span class="hs-identifier hs-type">FormatTime</span></a></span><span> </span><span class="annot"><a href="Data.Time.Calendar.CalendarDiffDays.html#CalendarDiffDays"><span class="hs-identifier hs-type">CalendarDiffDays</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-176"></span><span>    </span><span id="local-6989586621679074170"><span class="annot"><span class="annottext">formatCharacter :: Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; CalendarDiffDays -&gt; String)
</span><a href="#local-6989586621679074170"><span class="hs-identifier hs-var hs-var hs-var hs-var">formatCharacter</span></a></span></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'y'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; CalendarDiffDays -&gt; String)
-&gt; Maybe (FormatOptions -&gt; CalendarDiffDays -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; CalendarDiffDays -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; CalendarDiffDays -&gt; String))
-&gt; (FormatOptions -&gt; CalendarDiffDays -&gt; String)
-&gt; Maybe (FormatOptions -&gt; CalendarDiffDays -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int
-&gt; (CalendarDiffDays -&gt; Integer)
-&gt; FormatOptions
-&gt; CalendarDiffDays
-&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">((CalendarDiffDays -&gt; Integer)
 -&gt; FormatOptions -&gt; CalendarDiffDays -&gt; String)
-&gt; (CalendarDiffDays -&gt; Integer)
-&gt; FormatOptions
-&gt; CalendarDiffDays
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a b. (Real a, Integral b) =&gt; a -&gt; a -&gt; b
</span><a href="Data.Time.Calendar.Private.html#quotBy"><span class="hs-identifier hs-var">quotBy</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">12</span></span><span> </span><span class="annot"><span class="annottext">(Integer -&gt; Integer)
-&gt; (CalendarDiffDays -&gt; Integer) -&gt; CalendarDiffDays -&gt; Integer
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">CalendarDiffDays -&gt; Integer
</span><a href="Data.Time.Calendar.CalendarDiffDays.html#cdMonths"><span class="hs-identifier hs-var hs-var">cdMonths</span></a></span><span>
</span><span id="line-177"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'b'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; CalendarDiffDays -&gt; String)
-&gt; Maybe (FormatOptions -&gt; CalendarDiffDays -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; CalendarDiffDays -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; CalendarDiffDays -&gt; String))
-&gt; (FormatOptions -&gt; CalendarDiffDays -&gt; String)
-&gt; Maybe (FormatOptions -&gt; CalendarDiffDays -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int
-&gt; (CalendarDiffDays -&gt; Integer)
-&gt; FormatOptions
-&gt; CalendarDiffDays
-&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">((CalendarDiffDays -&gt; Integer)
 -&gt; FormatOptions -&gt; CalendarDiffDays -&gt; String)
-&gt; (CalendarDiffDays -&gt; Integer)
-&gt; FormatOptions
-&gt; CalendarDiffDays
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">CalendarDiffDays -&gt; Integer
</span><a href="Data.Time.Calendar.CalendarDiffDays.html#cdMonths"><span class="hs-identifier hs-var hs-var">cdMonths</span></a></span><span>
</span><span id="line-178"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'B'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; CalendarDiffDays -&gt; String)
-&gt; Maybe (FormatOptions -&gt; CalendarDiffDays -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; CalendarDiffDays -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; CalendarDiffDays -&gt; String))
-&gt; (FormatOptions -&gt; CalendarDiffDays -&gt; String)
-&gt; Maybe (FormatOptions -&gt; CalendarDiffDays -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int
-&gt; (CalendarDiffDays -&gt; Integer)
-&gt; FormatOptions
-&gt; CalendarDiffDays
-&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">((CalendarDiffDays -&gt; Integer)
 -&gt; FormatOptions -&gt; CalendarDiffDays -&gt; String)
-&gt; (CalendarDiffDays -&gt; Integer)
-&gt; FormatOptions
-&gt; CalendarDiffDays
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Real a =&gt; a -&gt; a -&gt; a
</span><a href="Data.Time.Calendar.Private.html#remBy"><span class="hs-identifier hs-var">remBy</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">12</span></span><span> </span><span class="annot"><span class="annottext">(Integer -&gt; Integer)
-&gt; (CalendarDiffDays -&gt; Integer) -&gt; CalendarDiffDays -&gt; Integer
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">CalendarDiffDays -&gt; Integer
</span><a href="Data.Time.Calendar.CalendarDiffDays.html#cdMonths"><span class="hs-identifier hs-var hs-var">cdMonths</span></a></span><span>
</span><span id="line-179"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'w'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; CalendarDiffDays -&gt; String)
-&gt; Maybe (FormatOptions -&gt; CalendarDiffDays -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; CalendarDiffDays -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; CalendarDiffDays -&gt; String))
-&gt; (FormatOptions -&gt; CalendarDiffDays -&gt; String)
-&gt; Maybe (FormatOptions -&gt; CalendarDiffDays -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int
-&gt; (CalendarDiffDays -&gt; Integer)
-&gt; FormatOptions
-&gt; CalendarDiffDays
-&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">((CalendarDiffDays -&gt; Integer)
 -&gt; FormatOptions -&gt; CalendarDiffDays -&gt; String)
-&gt; (CalendarDiffDays -&gt; Integer)
-&gt; FormatOptions
-&gt; CalendarDiffDays
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a b. (Real a, Integral b) =&gt; a -&gt; a -&gt; b
</span><a href="Data.Time.Calendar.Private.html#quotBy"><span class="hs-identifier hs-var">quotBy</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">7</span></span><span> </span><span class="annot"><span class="annottext">(Integer -&gt; Integer)
-&gt; (CalendarDiffDays -&gt; Integer) -&gt; CalendarDiffDays -&gt; Integer
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">CalendarDiffDays -&gt; Integer
</span><a href="Data.Time.Calendar.CalendarDiffDays.html#cdDays"><span class="hs-identifier hs-var hs-var">cdDays</span></a></span><span>
</span><span id="line-180"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'d'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; CalendarDiffDays -&gt; String)
-&gt; Maybe (FormatOptions -&gt; CalendarDiffDays -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; CalendarDiffDays -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; CalendarDiffDays -&gt; String))
-&gt; (FormatOptions -&gt; CalendarDiffDays -&gt; String)
-&gt; Maybe (FormatOptions -&gt; CalendarDiffDays -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int
-&gt; (CalendarDiffDays -&gt; Integer)
-&gt; FormatOptions
-&gt; CalendarDiffDays
-&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">((CalendarDiffDays -&gt; Integer)
 -&gt; FormatOptions -&gt; CalendarDiffDays -&gt; String)
-&gt; (CalendarDiffDays -&gt; Integer)
-&gt; FormatOptions
-&gt; CalendarDiffDays
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">CalendarDiffDays -&gt; Integer
</span><a href="Data.Time.Calendar.CalendarDiffDays.html#cdDays"><span class="hs-identifier hs-var hs-var">cdDays</span></a></span><span>
</span><span id="line-181"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'D'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; CalendarDiffDays -&gt; String)
-&gt; Maybe (FormatOptions -&gt; CalendarDiffDays -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; CalendarDiffDays -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; CalendarDiffDays -&gt; String))
-&gt; (FormatOptions -&gt; CalendarDiffDays -&gt; String)
-&gt; Maybe (FormatOptions -&gt; CalendarDiffDays -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int
-&gt; (CalendarDiffDays -&gt; Integer)
-&gt; FormatOptions
-&gt; CalendarDiffDays
-&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">((CalendarDiffDays -&gt; Integer)
 -&gt; FormatOptions -&gt; CalendarDiffDays -&gt; String)
-&gt; (CalendarDiffDays -&gt; Integer)
-&gt; FormatOptions
-&gt; CalendarDiffDays
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Real a =&gt; a -&gt; a -&gt; a
</span><a href="Data.Time.Calendar.Private.html#remBy"><span class="hs-identifier hs-var">remBy</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">7</span></span><span> </span><span class="annot"><span class="annottext">(Integer -&gt; Integer)
-&gt; (CalendarDiffDays -&gt; Integer) -&gt; CalendarDiffDays -&gt; Integer
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">CalendarDiffDays -&gt; Integer
</span><a href="Data.Time.Calendar.CalendarDiffDays.html#cdDays"><span class="hs-identifier hs-var hs-var">cdDays</span></a></span><span>
</span><span id="line-182"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe (FormatOptions -&gt; CalendarDiffDays -&gt; String)
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-183"></span><span>
</span><span id="line-184"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatTime"><span class="hs-identifier hs-type">FormatTime</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.CalendarDiffTime.html#CalendarDiffTime"><span class="hs-identifier hs-type">CalendarDiffTime</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-185"></span><span>    </span><span id="local-6989586621679074158"><span class="annot"><span class="annottext">formatCharacter :: Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; CalendarDiffTime -&gt; String)
</span><a href="#local-6989586621679074158"><span class="hs-identifier hs-var hs-var hs-var hs-var">formatCharacter</span></a></span></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'y'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; CalendarDiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; CalendarDiffTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; CalendarDiffTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; CalendarDiffTime -&gt; String))
-&gt; (FormatOptions -&gt; CalendarDiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; CalendarDiffTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int
-&gt; (CalendarDiffTime -&gt; Integer)
-&gt; FormatOptions
-&gt; CalendarDiffTime
-&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">((CalendarDiffTime -&gt; Integer)
 -&gt; FormatOptions -&gt; CalendarDiffTime -&gt; String)
-&gt; (CalendarDiffTime -&gt; Integer)
-&gt; FormatOptions
-&gt; CalendarDiffTime
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a b. (Real a, Integral b) =&gt; a -&gt; a -&gt; b
</span><a href="Data.Time.Calendar.Private.html#quotBy"><span class="hs-identifier hs-var">quotBy</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">12</span></span><span> </span><span class="annot"><span class="annottext">(Integer -&gt; Integer)
-&gt; (CalendarDiffTime -&gt; Integer) -&gt; CalendarDiffTime -&gt; Integer
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">CalendarDiffTime -&gt; Integer
</span><a href="Data.Time.LocalTime.Internal.CalendarDiffTime.html#ctMonths"><span class="hs-identifier hs-var hs-var">ctMonths</span></a></span><span>
</span><span id="line-186"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'b'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; CalendarDiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; CalendarDiffTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; CalendarDiffTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; CalendarDiffTime -&gt; String))
-&gt; (FormatOptions -&gt; CalendarDiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; CalendarDiffTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int
-&gt; (CalendarDiffTime -&gt; Integer)
-&gt; FormatOptions
-&gt; CalendarDiffTime
-&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">((CalendarDiffTime -&gt; Integer)
 -&gt; FormatOptions -&gt; CalendarDiffTime -&gt; String)
-&gt; (CalendarDiffTime -&gt; Integer)
-&gt; FormatOptions
-&gt; CalendarDiffTime
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">CalendarDiffTime -&gt; Integer
</span><a href="Data.Time.LocalTime.Internal.CalendarDiffTime.html#ctMonths"><span class="hs-identifier hs-var hs-var">ctMonths</span></a></span><span>
</span><span id="line-187"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'B'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FormatOptions -&gt; CalendarDiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; CalendarDiffTime -&gt; String)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; CalendarDiffTime -&gt; String)
 -&gt; Maybe (FormatOptions -&gt; CalendarDiffTime -&gt; String))
-&gt; (FormatOptions -&gt; CalendarDiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; CalendarDiffTime -&gt; String)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int
-&gt; (CalendarDiffTime -&gt; Integer)
-&gt; FormatOptions
-&gt; CalendarDiffTime
-&gt; String
forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var">formatNumberStd</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">((CalendarDiffTime -&gt; Integer)
 -&gt; FormatOptions -&gt; CalendarDiffTime -&gt; String)
-&gt; (CalendarDiffTime -&gt; Integer)
-&gt; FormatOptions
-&gt; CalendarDiffTime
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Real a =&gt; a -&gt; a -&gt; a
</span><a href="Data.Time.Calendar.Private.html#remBy"><span class="hs-identifier hs-var">remBy</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">12</span></span><span> </span><span class="annot"><span class="annottext">(Integer -&gt; Integer)
-&gt; (CalendarDiffTime -&gt; Integer) -&gt; CalendarDiffTime -&gt; Integer
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">CalendarDiffTime -&gt; Integer
</span><a href="Data.Time.LocalTime.Internal.CalendarDiffTime.html#ctMonths"><span class="hs-identifier hs-var hs-var">ctMonths</span></a></span><span>
</span><span id="line-188"></span><span>    </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span id="local-6989586621679074156"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679074156"><span class="hs-identifier hs-var">alt</span></a></span></span><span> </span><span id="local-6989586621679074155"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679074155"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">((FormatOptions -&gt; POSIXTime -&gt; String)
 -&gt; FormatOptions -&gt; CalendarDiffTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String)
-&gt; Maybe (FormatOptions -&gt; CalendarDiffTime -&gt; String)
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-identifier hs-var">fmap</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679074154"><span class="annot"><span class="annottext">FormatOptions -&gt; POSIXTime -&gt; String
</span><a href="#local-6989586621679074154"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span id="local-6989586621679074153"><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679074153"><span class="hs-identifier hs-var">fo</span></a></span></span><span> </span><span id="local-6989586621679074152"><span class="annot"><span class="annottext">CalendarDiffTime
</span><a href="#local-6989586621679074152"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">FormatOptions -&gt; POSIXTime -&gt; String
</span><a href="#local-6989586621679074154"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679074153"><span class="hs-identifier hs-var">fo</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">CalendarDiffTime -&gt; POSIXTime
</span><a href="Data.Time.LocalTime.Internal.CalendarDiffTime.html#ctTime"><span class="hs-identifier hs-var hs-var">ctTime</span></a></span><span> </span><span class="annot"><span class="annottext">CalendarDiffTime
</span><a href="#local-6989586621679074152"><span class="hs-identifier hs-var">t</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; POSIXTime -&gt; String)
forall t.
FormatTime t =&gt;
Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; t -&gt; String)
</span><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679074156"><span class="hs-identifier hs-var">alt</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679074155"><span class="hs-identifier hs-var">c</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-189"></span></pre></body></html>